С клавиатуры задаётся 3 числа. Найти сумму кратных двум РЕШИТЬ ПАСКАЛЕМ. ОЧЕНЬ НУЖНО
С клавиатуры задаётся 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.
Не нашли ответ?
Похожие вопросы