ВЫЧИЛИТЕ СУММАРНЫЙ ОБЪЕМ X КУБОВ, ЕСЛИ СТОРОНА ПЕРВОГО КУБА 5 М, А КАЖДОГО ПОСЛЕДУЩЕГО НА 20 СМ МЕНЬШЕ ПРЕДЫДУЩЕГО
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
