Предмет: Информатика,
автор: katya141997
Составить программу выводящую на экран все делители на число х.(число х вводится с клавиатуры)
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: Inpotria
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: fikovh5
Предмет: Геометрия,
автор: Kipiw