Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ОстановитеЭтотМир
28.08.2022 10:23 •
Информатика
Написать программу, которая находит сумму кубов всех целых чисел от а до 60. значение а вводится с клавиатуры, 0< =a< =60 решать через цикл с постусловием ()
Показать ответ
Ответ:
strange0311
05.10.2020 13:22
Program n1;
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
prohov14
31.12.2020 20:28
якласс по информатике, все на скриншоте...
Дако031204
25.09.2022 21:44
Дано i-3 x*y=2048*1536 найти v-? дано: x*y-128*128 v=4 найти-n-? 14 решите плез завтра в шк...
ВоСьМиКлAшKа
02.11.2020 12:18
Каков период колебаний источника волны ,если длина волны равна 2 м, а скорость ее распространения 5м/с?...
timekid
02.11.2020 12:18
Из какого материала строили на руси храмы?...
Ромчик55123
02.11.2020 12:18
Напишите и почему появились корни с чередующимеся гласными.зарание...
кирилл2122
02.11.2020 12:18
Карбонат магния → оксид магния + оксид углерода (4)...
Маширо11
02.11.2020 12:18
15 ! подставьте слова в текст write the perfect crime novel most people are born with the natural ability to tell stories, but only a rare few have the determination...
sotela546hgjUlia
02.11.2020 12:18
На картине марии вишняк букет сентября изображена ваза с букетом полевых цветов,которые настроение ещё не ушедшего лета.одновременно с этим навеивают небольшую грусть...
Petrosyan31337
02.11.2020 12:18
«освоение амазонии». объясните, какие проблемы возникают в связи с этим для бразилии, для латинской америки, для всего мира....
Banannaa
02.11.2020 12:18
Сочинение на тему the trip of my life...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.