Question

Решите через программу паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
четных чисел, введенных с клавиатуры

Answer 1

Ответ:

var a,s: integer;

begin

s:=0;

repeat

write('Введите число: ');

readln(a);

if (a mod 2 = 0) then s:=s+a;

until a=0;

writeln('Сумма всех четных чисел: ',s);

end.