Question

Дано натуральное число N. Составить программу, печатающую в порядке возрастания все числа кратные 11 в промежутке [1..n]. Число n вводится с клавиатуры. в паскале abc, Тема Множества

Answer 1

Var  N, i: integer;

begin 
readln(N); 
for i := 1 to N do    
if i mod 11 = 0 then write(i, ' ');
end.

Answer 2

Решение задачи на PASCAL ABC

Для решения данной задачи на PASCAL ABC, необходимо написать программу, которая будет печатать в порядке возрастания все числа, кратные 11, в промежутке от 1 до введенного числа n.

Программа на PASCAL ABC

program printMultiplesOf11;
var
   n, i: integer;
begin
   write('Введите число n: ');
   readln(n);
   writeln('Числа, кратные 11 в промежутке от 1 до ', n, ':');
   for i := 1 to n do
   begin
      if (i mod 11 = 0) then
         writeln(i);
   end;
end.

Эта программа сначала запрашивает у пользователя ввести число n, затем выводит все числа, кратные 11, в промежутке от 1 до n.

Пример работы программы

Введите число n: 50
Числа, кратные 11 в промежутке от 1 до 50:
11
22
33
44

Теперь вы можете использовать эту программу для печати всех чисел, кратных 11, в заданном промежутке.