Помогите составить программу, определяющую все делители заданного числа.

[epilepsic]

Составить программу, определяющую все делители заданного числа.
Сообщить их количество и вывести их значения.

ОБЯЗАТЕЛЬНО РЕШЕНИЕ СОПРОВОЖДАТЬ КОММЕНТАРИЕМ.

[Asix]

То есть Вы хотите, чтобы мы за Вас написали программу да еще требуете, чтобы были подробные комментарии??
С чего бы это вдруг ?? =))

Мы не решаем за Вас, мы помогаем Вам понять!

Сначала напишите, что Вы делали и что не получается?
Какие есть свои мысли?? =))

За Вас никто решать не будет, мы можем только помочь =))

[Asix]

Да, кстати, Вы даже не написали на каком языке программирование пишите программу =))

[epilepsic]

паскаль ничего я не решал я вообще не понимаю по паскалю а мне нужно это

[Asix]

Значит Вам надо открыть теоретический материал и начать втыкать. Врядли кому-то захочется За вас писать программы. Ведь это логично ?? =))

После прочтения теоретического материала у Вас сразу появяться конкретные вопросы и идеи и тогда мы Вам поможем написать программу, ответим на все возникнувшие вопросы и будем помогать исправлять ошибки. Иначе не получится =))

[epilepsic]

var c,i,n:integer;
begin
readln(n);
c:=0;
for i:=1 to n do begin if n mod i = 0 then begin inc(c); write(i:6);end;end;
writeln('count=',c);
readln;
end.
это правильно?

[InfStudent]

Да)))