Найти сумму ряда чисел 1^3+2^3+3^3++n^3 pascal - вопрос №45154121323333 от ŦøPňŷŦĩĩ78 02.08.2022 21:26

Question

Информатика: Найти сумму ряда чисел 1^3+2^3+3^3++n^3 pascal

ŦøPňŷŦĩĩ78 · Answer

begin
   var n,i:integer;
var sum:real;
begin
sum:=0;
writeln('Введите n: ');
readln(n);
  for i:=1 to n do
  sum:=sum+Power(i,3);
  writeln('ответ:'+sum);
   end;
end.