Циклы. Вычислить сумму ряда чисел Program sum; var a: integer; s: real; Begin a:=1; s:=0; while a<600 do begin a:=a+1; s:=s+1/a; end; writeln ( ' s= - презентация

1 Циклы

2 Вычислить сумму ряда чисел

3 Program sum; var a: integer; s: real; Begin a:=1; s:=0; while a

4 Вычислить сумму ряда чисел

5 Program sum; var s :real; a, n: integer; Begin writeln (Введите n); readln (n); a:= 1 ; s:=0; while a< n do begin a:=a+1; if a mod 2=0 then s:=s+1/a else s:=s-1/a; end; writeln (сумма ряда равна s=, s:5:3); end.

6 Дано число N. Вывести все делители этого числа.

7 var i,n:integer; begin writeln('Введите N'); readln(n); for i:=1 to n do if n mod i=0 then write(i:4); end.

8 Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления и нахождения остатка от деления не использовать).

9 uses crt; var i, j, k: integer; begin for i:=1 to 9 do for j:=0 to 9 do begin for k:=0 to 9 do if (ij) and (ik) and (jk) then write(i*100+j*10+k, ' '); writeln; end; end.

10 Составить алгоритм решения ребуса ДРУГ+ГУРД = 7777 (различные буквы обозначают различные цифры, старшая не 0).

11 uses crt; var d, r, u, g: integer; begin for d:=2 to 9 do for r:=0 to 9 do for u:=0 to 9 do for g:=1 to 9 do if (du) and (dr) and (dg) and (ru) and (rg) and (gu) and (d*1000+r*100+u*10+g+g*1000+u*100+r*10+d=7777) then write(d,r,u,g, ' '); end.

12 ПРИДУМАТЬ РЕБУС И НАПИСАТЬ ПРОГРАММУ РЕШЕНИЯ ЭТОГО РЕБУСА.

13

14 Составить алгоритм решения ребуса КОТ+ТОК = ААА (различные буквы обозначают различные цифры, старшая не 0).