Регистрация
Войти
Стать экспертом Правила
Информатика

Написать программу в паскале

напечатать все положительные нечётные трёхзначные числа

ОТВЕТЫ
Program rd;
var i:integer;
begin
for i:=100 to 999 do if i mod 2 = 1 then write(i, );
end.
PascalABC.NET 3.2

begin Range(101,999,2).Println end.
134
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам