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

Question

Информатика

Сева

4 марта, 02:51

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

+1

Ответы (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