Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.

(тема: накопление суммы)

Question

Информатика

Сигизмунд

15 февраля, 08:38

Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.

(тема: накопление суммы)

+3

Ответы (1)

Знаете ответ на вопрос?

Епистима · Answer 1

Var a, b, sum:integer;

begin

sum:=0;

for a:=0 to 9 do begin

read (b) ;

if (b mod 2 = 0) then sum:=sum+b;

end;

writeln ('сумма чётных чисел sum=', sum) ;

end.

Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.(тема: накопление суммы)

Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.

(тема: накопление суммы)