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

amelkonatasha amelkonatasha    3   01.03.2019 18:10    7

Ответы
raisabarsegyan raisabarsegyan  23.05.2020 18:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика