Пол кода удаляется, могу только скриншот кинуть
1) 80*1024*8=655360 бит
<span>2)655360\1536=427 сек.</span>
<span>3)427*768=327680 бит=40960байт=40Кбайт</span>
<span>Ответ: 40 Кбайт
</span>
Объяснение:
3*10^4+2*10^3+6*10^2+7*10^1
Var n,i,j,k,s,sn:integer;
begin
writeln('n = ');
readln(n);
sn:=round(sqrt(n));
for i:=1 to sn do
for j:=1 to sn do
for k:=1 to sn do
begin
s:=i*i+j*j+k*k;
if s=n then writeln(i,'^2+',j,'^2+',k,'^2 = ',s);
end;
end.
Пример:
<span>n = 253
3^2+10^2+12^2 = 253
3^2+12^2+10^2 = 253
10^2+3^2+12^2 = 253
10^2+12^2+3^2 = 253
12^2+3^2+10^2 = 253
12^2+10^2+3^2 = 253</span>