Составить программу для подсчёта суммы кубов n натуральных чисел. n=40. (turbo pascal)

LeНин LeНин    3   07.09.2019 15:20    0

Ответы
алиса2343 алиса2343  06.10.2020 23:14
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.

Результат
672400

Составить программу для подсчёта суммы кубов n натуральных чисел. n=40. (turbo pascal)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика