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

Question

Информатика

Римлянин

1 августа, 21:53

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

+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.