число Z вводится
Pascal
var
i, z: longint;
begin
write('Введите Z : ');
readln(z);
for i:=1 to trunc(sqrt(z)) do begin
if z mod i = 0 then
writeln(i, ' * ', z/i);
end;
end.
число Z вводится
Pascal
var
i, z: longint;
begin
write('Введите Z : ');
readln(z);
for i:=1 to trunc(sqrt(z)) do begin
if z mod i = 0 then
writeln(i, ' * ', z/i);
end;
end.