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

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

Ответ:

11soSiSka11

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 оценок)

Популярные вопросы: Информатика

Mironshiha

23.11.2022 15:11

Ученик с устройства 1 провел скайп конференцию. запись конференции для одноклассников продемонстрировал с устройства 2. определите данные устройства . 1 2 1 2 3...

Кираfox15

23.11.2022 15:11

Для чего предназначен микропроцессор?...

гуманитарий23

23.11.2022 15:11

Определите информационный объем сообщения из 30 символов если мощность алфавита 256...

Nastyarainb

06.05.2023 16:13

Запишите число 5 bc(16) в десятичной системы счисления...

19791207the

04.08.2020 21:52

4. Запишите результат выполнения программы. we is a te . var p, n: integer; begin р n n 4 Р: -1; for n:=7 downto 4 do p:=p№...

Jeinm

03.09.2022 15:40

№ 5. Напишите программу, которая по двум натуральным числам аиь подсчитывает количество натуральных чисел, не кратных 3, на отрезке [a,b]. Пример работы программы:...

Rumyantssseva

05.08.2020 08:18

Перелічіть вимоги до криптосистем...

cat504

15.05.2022 17:15

Напишите на языке с++ программу нахождения прямоугольного треугольника, если известна длина обоих катетов 20 7 класс хэлп...

ilay23143p0bp8a

15.05.2022 17:15

Запишите по 2 суждения: а) из : б) из : в) из биологии: г) из : д) из языка: е) из : ж)из информатики: заранее ! )...

Artemij08

19.03.2020 02:03

Составить расписание звонков уроков. пользователь вводит номер уpока, программа выдает время урока. используйте оператор множество выбора switch...

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

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