Решите через программу паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
четных чисел, введенных с клавиатуры
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
четных чисел, введенных с клавиатуры
More Questions From This User See All
Answers & Comments
Ответ:
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.