Напишите программу определения делитей числа в Паскале

Question

Информатика

Георгич

1 августа, 18:47

Напишите программу определения делитей числа в Паскале

+2

Ответы (1)

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

Вераха · Answer 1

Uses crt;

var n, i:integer;

begin

Clescr;

readln (n) ;

Writeln ('Делители числа ', n) ;

for i:=1 to n do

if n mod i = 0 then write (i,' ') ;

Readkey;

end.