Задание:
Дано число n. Найти все его делители.
Решение:
Uses crt; var a,i: integer; beginreadln (a); for i: =1 to (a div 2) doif (a mod i=0) then writeln (i); writeln (a); end.
Знаете другой ответ?
Дано число n. Найти все его делители.
Uses crt; var a,i: integer; beginreadln (a); for i: =1 to (a div 2) doif (a mod i=0) then writeln (i); writeln (a); end.
Знаете другой ответ?