Составте программу выводящую на экран четные числа от 10 до 20, по одному числу в строке
Var i:integer;
begin
for i:=10 to 20 do
begin
if (i mod 2=0) then writeln(i);
end;
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var i:integer;
begin
for i:=10 to 20 do
begin
if (i mod 2=0) then writeln(i);
end;
end.