Question

Составьте в Паскале программу для вывода всех чисел в диапазоне [-100;100] кратных 3.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Range(-99,100,3).Println
end.

Результат
-99 -96 -93 -90 -87 -84 -81 -78 -75 -72 -69 -66 -63 -60 -57 -54 -51 -48 -45 -42 -39 -36 -33 -30 -27 -24 -21 -18 -15 -12 -9 -6 -3 0 3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99

Answer 2

Вот пример программы на языке Pascal, которая выводит все числа в диапазоне [-100;100], кратные 3:

arduinoCopy code
program MultiplesOfThree;

var
  i: integer;

begin
  for i := -100 to 100 do
  begin
    if (i mod 3 = 0) then
    begin
      writeln(i);
    end;
  end;
end.

Эта программа использует цикл for для перебора всех чисел в диапазоне [-100;100] и проверяет каждое число на кратность 3 с помощью оператора mod. Если число кратно 3, то оно выводится на экран с помощью функции writeln.

Обратите внимание, что переменная i объявлена как целочисленная (integer) и используется для итерации по циклу. Также функция writeln выводит каждое число на новой строке.