1, с клавиатуры вводятся 10 натуральных чисел. вычислить сумму четных элементов. 2, с клавиатуры вводятся 15 натуральных чисел. подсчитать количество элементов, кратных 3 и 5. 3, с клавиатуры вводятся 10 натуральных чисел. вычислить произведение чисел, больших 10, но меньших 20.

204

458

Посмотреть ответы 2

Ответы на вопрос:

Стаилз2002

Информатика

4,4(93 оценок)

1. for i : = 1 to 10 do begin readln(n); if (even(n)) then s : = s + n; end; 2. for i : = 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end; 3. for i : = 1 to 10 do begin readln(n); if (10 < = n) and (n < = 20) then m : = m * n; end;

pughluy

Информатика

4,8(22 оценок)

Var a, b, c, n : integer; procedure max(a,b: integer; var c : integer); begin if a> b then c: =a else c: =b; end; begin read (a,b,c); max(a,b,a); max(a,c,a); write (a); end.