Войти Регистрация Спроси ai-bota

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

dotafign9

12.07.2021 11:26

Найдите значение логического выражения при x= 10 и x=14 ( отрицание) (x 10) U (x 14)...

hhgfg

25.09.2020 16:26

определить значение переменных s и i после выполнения действий s : =0; i: = 5; s : =0; i : =5; while i =0 do begin s : =s+i; i : =i-1; end;...

sokolovsokol3андрей

25.09.2020 16:26

Дан массив из n целх чисел и натуральное число к. удалить из массива а елемет с номером к...

annashiklo

25.09.2020 16:26

Информатичка дала . не могу решить никак. мне кажется, что она специально дала то, что невозможно решить. текст : a: =10; x: =0; for i: =-2 to 2 do a: =a+i; x: =x+a;...

danilkudo423

25.09.2020 16:26

Вычислить сумму 56 введённых ( вводить не только четные ) четных чисел если результат превышает 568 то к этой сумме прибавить 300...

12345678Natalya

25.09.2020 16:26

Определите значение переменной s после выполнения следующих операторов: s: =0; k: =6; while k 3 do k: =k - 1; s: =s + k;...

Obcenceee

25.09.2020 16:26

Определите значение переменной s после выполнения следующих операторов: s: =0; k: =6; while k 3 do k: =k - 1; s: =s + k;...

DenisBru4anovvv

25.09.2020 16:26

Определите значение переменной s после выполнения следующих операторов: s: =1; for k: =1 to 2 do s: =s*2; s: =s + 10;...

катюшка309

08.05.2020 19:23

Вчем суть считывания и записи информации в компьютере?...

annaaverina

13.03.2021 23:41

Названия хвойных деревьев в списке по убыванию длины шишки...

Ответ:

NekkeR8821

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.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку