С клавиатуры задаётся 3 числа. Найти сумму кратных двум РЕШИТЬ ПАСКАЛЕМ. ОЧЕНЬ НУЖНО

Var a, b, c: integer;
begin
for a:=1 to 3 do
begin
readln(b);
if b mod 2 = 0 then c:=b+c;
end;
writeln(Ответ: ,c);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!