Question

Вывести все числа которые делятся на 11 и 17 до 1000 Паскаль

Answer 1

Ответ:

var n: integer;

begin

 for n := 1 to 1000 do

   if (n mod 11 = 0) and (n mod 17 = 0) then

     writeln(n);

end.

Объяснение:

Answer 2

Вот пример программы на Pascal, которая выводит все числа, которые делятся на 11 и 17 и находятся в пределах от 1 до 1000:

pascalCopy code
program DivisibleBy11And17;

var
  i: Integer;

begin
  for i := 1 to 1000 do
  begin
    if (i mod 11 = 0) and (i mod 17 = 0) then
      writeln(i);
  end;
end.

Эта программа использует цикл for, который перебирает числа от 1 до 1000. Затем она использует оператор if для проверки, делится ли текущее число как на 11, так и на 17 без остатка с помощью операторов mod. Если оба условия выполняются, то число выводится на экран с помощью процедуры writeln.