Сделай так как на фото и все получиться ))))
var sum,x:integer;
begin
x:=1;
while x<>0 do begin readln(x); sum:=sum+x; end;
writeln(sum);
end.
в одном гигабайте 1048576 кб. соответственно в 80гб х 1048676 = 83886080 кб.
Ответ:
program abc;
var m,o,k:int64;
begin
readLn(m);
o:=2000000000;
for i:integer:=trunc(sqrt(m))+1 downto 1 do
if (o>m div sqr(i)) and (m mod sqr(i) = 0) then
begin
o:=m div sqr(i);
k:=sqr(i);
end;
writeLn(k);
end.
Объяснение: