program FindDivisors va N, i: Integer begi write('Введите число N: ') readln(N) writeln('Делители числа ', N, ':') for i := 1 to N d begi if N mod i = 0 the writeln(i) end end.
Эта программа запрашивает у пользователя число N, а затем находит и выводит все делители этого числа.
Пример кода на Pascal:
program FindDivisorsva
N, i: Integer
begi
write('Введите число N: ')
readln(N)
writeln('Делители числа ', N, ':')
for i := 1 to N d
begi
if N mod i = 0 the
writeln(i)
end
end.
Эта программа запрашивает у пользователя число N, а затем находит и выводит все делители этого числа.