1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.3, С клавиатуры вводятся 10 натуральных чисел. Вычисл...

Question

1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.3, С клавиатуры вводятся 10 натуральных чисел. Вычисл...

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

Гость

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

Accepted Answer

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;