Вывести на экран последовательность четных чисел от -30 до +30 (на паскале)
Var
i:integer;
begin for i:=-30 to 30 do
if i mod 2 = 0 then
write(i, );end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var
i:integer;
begin for i:=-30 to 30 do
if i mod 2 = 0 then
write(i, );end.