Ответы
Ответ дал:
0
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.
begin
for a:=1 to 3 do
begin
readln(b);
if b mod 2 = 0 then c:=b+c;
end;
writeln('Ответ: ',c);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад