Дано натуральное число N. Составить программу, печатающую в порядке возрастания все числа кратные 11 в промежутке [1..n]. Число n вводится с клавиатуры. в паскале abc, Тема Множества
Дано натуральное число N. Составить программу, печатающую в порядке возрастания все числа кратные 11 в промежутке [1..n]. Число n вводится с клавиатуры. в паскале abc, Тема Множества
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
n дано f, S: set of integer [1..f];
n, i: integer;
begin
readln(n);
for i := 1 to n do
begin
if i mod 11 = 0 then
begin
S := S + [i];
end;
end;
for i in S do
begin
writeln(i);
end;
end.