Pascal Нахождение суммы кубов всех целых чисел от 1 до N
Pascal Нахождение суммы кубов всех целых чисел от 1 до N
Гость
Ответ(ы) на вопрос:
Гостьvar i,n,s:longint;beginreadln(n);s:=0;for i:=1 to n do s:=s+i*i*i;writeln('s=',s);end.
Не нашли ответ?
Похожие вопросы