Задание:
Составить программу выводящую на экран все делители на число х. (число х вводится склавиатуры)
Решение:
program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln (x); L: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac (l)=0 then writeln (l: 2:0); end; readkey; end.
Знаете другой ответ?