Написать программу, которая находит сумму кубов всех целых чисел от а до 60. значение а вводится с клавиатуры, 0< =a< =60 решать через цикл с постусловием ()
ЛёняЛАпочка
1
22.08.2019 20:50
6
Другие вопросы по теме Информатика
DiModDi
25.07.2019 21:40
впнекккккк
25.07.2019 21:30
German22848
19.10.2021 15:02
liznesterencko
19.10.2021 15:02
вит39
19.10.2021 14:54
мффки
18.10.2020 00:40
Ерс01
11.12.2020 20:17
Варвараминнннн
11.12.2020 20:17
Популярные вопросы
- Смешивают 1 моль КОН с 1 моль H2SO4. Какая соль образовалась, в каком...
2 - Твір Соловей і Троянда і співець що спільного і відміного...
2 - Задание по литературе Описание из текста (выписать прилагательные +...
1 - Обчислити масову частку V2 05 Cr2 O3, Fe O...
3 - Найдите а тексте алитерации, анафоры, инверции....
2 - 1.сопаставьте слова поэта Геннадия Иванова с денег о Петре.Можнл ли...
3 - 3. На занятиях кружка по физике Филипп решил изучить, как жёсткость...
3 - Сыни хабарлама деген не? Плз...
3 - Решите уравнение подробно 1=6х+9...
1 - Сравнение снихотворения ангел и молитва...
2
var a,sum,i: longint;
begin
readln(a);
sum:=0;
repeat
sum:=sum+a*a*a;
a:=a+1;
until (a>60);
writeln(sum);
end.