Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.
(тема: накопление суммы)
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад