Предмет: Информатика,
автор: lolobes
pascal Нахождение суммы кубов всех целых чисел от 1 до N
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: География,
автор: doshik38
Предмет: Русский язык,
автор: luninalilia70
Предмет: Математика,
автор: liruba
Предмет: Математика,
автор: alena20027894561230
Предмет: Химия,
автор: alenkaviktorov