Procedure factorize(n: longint);
var divisor: longint;
begin
divisor := 2;
while divisor * divisor <= n do
if n mod divisor = 0 then
begin
n := n div divisor;
writeln(divisor);
end
else inc(divisor);
if n <> 1 then writeln(n);
end;
var n: longint;
begin
readln(n);
factorize(n);
end.
Программа на снимке, чтобы определить целое число от деление нужно использовать div
модель
на одну букву в леао
10кб*8*1024=81920бит
40*64=2560 всего символов на 1 странице
81920/2560=32 страницы