Вопрос по информатике:
Найдите сумму кубов всех натуральных чисел от 1 до x вывестисами числа их кубы и конечный результат
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.06.2015 16:53
- Информатика
- remove_red_eye 10785
- thumb_up 31
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('x=');
var s:=0;
var x3:integer;
Range(1,x).ForEach(t->begin x3:=t*t*t; Writeln(t:3,'^3',x3:10); s+=x3 end);
Writeln('ИТОГО:',s:9)
end.
Пример
x= 10
1^3 1
2^3 8
3^3 27
4^3 64
5^3 125
6^3 216
7^3 343
8^3 512
9^3 729
10^3 1000
ИТОГО: 3025
- 05.06.2015 18:41
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.