1. Информатика
  2. Составить программу для

Составить программу для вычисления суммы кубов чисел от 25 до 125

Celebrat Celebrat    2   17.05.2019 19:50    5

Ответы
LevMuronov LevMuronov  11.06.2020 01:11

var
i: integer;ans: real;

begin
ans := 0;
for i := 25 to 125 do ans := ans + i * i * i;
writeln(ans);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
weldys99 weldys99  25.03.2019 03:20
Найти сумму всех трехзначных чисел кратных к...
Аня341 Аня341  25.03.2019 03:30
Подскажите как найти сколько мбайт в информации объемом 2 в 33 степени бит! ? (само решение)...
1zoya 1zoya  17.09.2019 19:40
Как их сделать вместе чтобы работало uses crt; var a,i: byte; s: real; begin clrscr; for i: =1 to 4 do begin writeln( vvod ); readln(a); if a mod 5=0 then writeln(...
SkiJu SkiJu  17.09.2019 19:40
№1 в одной из кодировок кои-8 каждый символ кодируется 8 битами. определите информационный объём следующего предложения в данной кодировке. и уносят меня в звенящую...
2005Dasha0305 2005Dasha0305  20.05.2020 13:22
Написать описание любой операционной системы, кроме OC Windows...
irinavlasova irinavlasova  23.06.2019 20:50
Массив из 15 элементов заполнить случайным образом в диапазоне .вывести на экран все элементы массива меньшие 33...
amorfteriya amorfteriya  10.04.2020 21:26
Площа прямокутника дорівнює 128 см². Знайдіть сторони прямокутника, якщо одна з них удвічі більша за іншу. * 1. 14 см, 8 см 2.7 см, 16 см 3.8 см, 16 см...
lizavetttok lizavetttok  10.04.2020 21:26
8. 3. Choose and complete the most suitable verb forms in each sentence. 1. Why didn t you tell me? If you told / had told me, I had helped / would have helped you....
sofirzhk sofirzhk  10.04.2020 21:26
Признаки которые могут обусловить развитие социума​...
luluik luluik  10.04.2020 21:26
Внешняя политика Екатерины 2 . таблица...

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