Пример. Вывод всех делителей натурального числа A
var a,n,c,d:word;
begin { основная программа }
readln(a);
n:=1;
while ( n <= sqrt(a) ) do begin
c:=a mod n;
d:=a div n;
if c = 0 then begin
writeln( n );
if n <> d then writeln( d );
end;
inc(n);
end;
end.
2008-03-19 • Просмотров [ 5070 ]
