100(5) = 1*5^2 = 25(10)
100(3) = 1*3^2 = 9(10)
Var x,y,z,n:integer;
begin
writeln('Введите n');
readln(n)
;for x:=1 to n do
begin
for y:=1 to n do
begin
for z:=1 to n do
begin
if (sqr(x)+sqr(y)+sqr(z)=n)then writeln('x=',x,' y=',y,' z=',z);
end;
end;
end;
<span>end.</span>
I=4кб=4096 байт= 32768 бит
k=4096 символов
формула: I=i*k, отсюда выражаем i=I:k = 32768:4096=8 бит
2^8=256 символов