Вывести на экран только положительные целые числа из диапазона от А до В (А<=B) (сделать в паскале)
var
a, b, i : integer;
begin
read (a, b);
for i := a to b do if i > 0 then writeln (i);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Вывести на экран только положительные целые числа из диапазона от А до В (А<=B) (сделать в паскале)
var
a, b, i : integer;
begin
read (a, b);
for i := a to b do if i > 0 then writeln (i);
end.