Question

Составьте программу, которая выводит все делители натурального числа N (в паскале)

Answer 1

Var n,i:integer;
begin
write('n = ');
readln(n);
writeln('Делители:');
for i:=1 to n div 2 do
 if n mod i = 0 then write(i,' ');
writeln(n);
end.

Пример:
n = 24
Делители:
1 2 3 4 6 8 12 24

Answer 2

Вот пример программы на языке Паскаль, которая выводит все делители натурального числа N:

program FindDivisors;
var
  N, i: integer;
begin
  write('Введите натуральное число N: ');
  readln(N);
  
  writeln('Делители числа ', N, ':');
  for i := 1 to N do
  begin
    if N mod i = 0 then
      writeln(i);
  end;
end.

В этой программе мы сначала запрашиваем у пользователя натуральное число N. Затем мы используем цикл `for` для перебора всех чисел от 1 до N. Внутри цикла мы проверяем, делится ли число N на текущее значение i без остатка с помощью оператора `mod`. Если деление происходит без остатка, то i является делителем числа N, и мы выводим его на экран.

Например, если пользователь вводит число 12, программа выведет следующий результат:

Введите натуральное число N: 12
Делители числа 12:
1
2
3
4
6
12

Обратите внимание, что данная программа выводит все делители числа N, включая 1 и само число N.

Источники: -: 50 - ABC Pascal -: . . . GitHub