Pascal нахождение суммы кубов всех целых чисел от 1 до n

var i,n,s: longint;

begin

readln(n);

s: =0;

for i: =1 to n do s: =s+i*i*i;

writeln('s=',s);

end.

компьютер входит в состав технической системы.

компьютер является надсистемой для ос.

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160