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

Question

Информатика

Фортуната

31 декабря, 13:14

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

+3

Ответы (1)

Знаете ответ?

Грунятка · 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