Question

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

Answer 1

Ответ:

var

i : integer;

begin

for i := 40 to 120 do

if i mod 11 = 0 then

writeln(i);

end.

Answer 2

Ответ:

begin

   Range(40, 120).Where(p -> p mod 11 = 0).Println;

end.

Объяснение:

Answer 3

Я могу помочь вам с написанием программы на Паскале. Вот один из возможных вариантов решения вашего задания:

program Kratnye11;
var
  i: integer;
begin
  writeln('Целые числа от 40 до 120, которые кратны 11:');
  for i := 40 to 120 do
    if i mod 11 = 0 then
      writeln(i);
end.

Эта программа объявляет целочисленную переменную `i` и использует цикл `for` для перебора всех чисел от 40 до 120. Затем она проверяет, делится ли каждое число на 11 без остатка с помощью оператора `mod`. Если это так, то она выводит это число на экран с помощью функции `writeln`. Вы можете запустить эту программу в онлайн-компиляторе Паскаля, например, [здесь]. Надеюсь, это вам поможет.