Question

Написать программу в паскале напечатать все положительные нечётные трёхзначные числа

Answer 1

Program rd;
var i:integer;
begin
for i:=100 to 999 do if i mod 2 = 1 then write(i,' ');
end.

Answer 2

PascalABC.NET 3.2

begin Range(101,999,2).Println end.

Answer 3

Конечно, вот пример программы на Pascal, которая печатает все положительные нечётные трёхзначные числа:

pascalCopy code
program PrintOddNumbers;

var
  i: integer;

begin
  for i := 101 to 999 step 2 do
  begin
    writeln(i);
  end;
end.

Эта программа использует цикл for, который начинается с 101 (первое трёхзначное нечётное число) и увеличивается на 2 на каждой итерации, чтобы получить следующее нечётное число. Когда i превышает 999, программа завершается.

Она выводит все нечётные трёхзначные числа от 101 до 999 включительно.