Решите через программу паскаль ** вход поступают положительные и отрицательные числа....

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.