Question

ЗАДАНИЕ НА ПАСКАЛЕ: написать программу и вывести на экран все целые трехзначные числа, кратные 119

Answer 1

Ответ:

var

i : integer;

begin

for i := 100 to 999 do

if i mod 119 = 0 then writeln(i);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая выводит все целые трехзначные числа, кратные 119:

pascalCopy code
program MultiplesOf119;

var
  num: integer;

begin
  for num := 119 to 999 do
  begin
    if num mod 119 = 0 then
      writeln(num);
  end;
end.

Эта программа использует цикл for для перебора всех целых чисел от 119 до 999. Затем с помощью оператора if проверяется, делится ли текущее число на 119 без остатка (num mod 119 = 0). Если это условие выполняется, то число выводится на экран с помощью writeln(num).