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