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

Question

Информатика

Маринуша

9 октября, 03:20

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

+5

Ответы (1)

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

Савватия · Answer 1

program ml;

uses crt;

var x, i:integer;

w, l:real;

begin

clrscr;

readln (x) ;

L:=x;

for i:=1 to x do begin

w:=w+1;

l:=x/w;

if frac (l) = 0 then writeln (l:2:0) ;

end;

readkey;

end.