Uses Crt;
const
n=40;
var
i,s:longint;
begin
s:=0;
for i:=1 to n do
s:=s+i*i*i;
ClrScr;
Writeln(s);
ReadKey
end.
<u>Результат</u>
672400
Походу я за вас тест решаю:D
К обратимым алгоритмам. Мадам,вы мне должны х3
<span>операторы машинного доения
рекламащик
инженер программист
</span><span>
</span>
Мы сдвигаем вправо на 4 элемента C->F $C ->$C
сдвигаем вниз на 2 элемента 3->5 1->3
в D3 будет:
=F5+$C3