8 lines
109 B
ObjectPascal
8 lines
109 B
ObjectPascal
var n,i:integer;
|
|
begin
|
|
n:=1;
|
|
for n to n*n-1 do begin
|
|
if i mod n = 0;
|
|
writeln('Íàåøëñÿ äåëèòåëü!!! ',i);
|
|
|
|
end. |