Вопрос по информатике:
ВЫЧИЛИТЕ СУММАРНЫЙ ОБЪЕМ X КУБОВ, ЕСЛИ СТОРОНА ПЕРВОГО КУБА 5 М, А КАЖДОГО ПОСЛЕДУЩЕГО НА 20 СМ МЕНЬШЕ ПРЕДЫДУЩЕГО
- 17.04.2017 01:37
- Информатика
- remove_red_eye 18040
- thumb_up 76
Ответы и объяснения 1
Program Tanina_domashka;
x,i:byte;
summa:integer;
Begin
Write('Введите количество кубов');
Readln(x);
If 500-x*20>0 then // проверяю возможно ли такое количество кубов
Begin
For i:=0 to x-1 do
summa:=summa+power(500-i*20,3);//расчёт (power(x,y) возводит x в степень y)
End;
Writeln('Суммарный объём = ',summa);//вывод
End.
- 18.04.2017 21:48
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.