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

Question

Информатика

Василида

25 июля, 01:53

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

+4

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