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

ZhanelTømmeraas ZhanelTømmeraas    1   28.07.2019 04:50    0

Ответы
malka75 malka75  25.09.2020 16:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика