Определите количество шаров в пирамиде состоящей из n слоев если количество шаров в слое равно квадрату номера слоя
Определите количество шаров в пирамиде состоящей из n слоев если количество шаров в слое равно квадрату номера слоя
Гость
Ответ(ы) на вопрос:
Гостьvar n,s,i: integer;
begin
write('Количество слоев: ');
readln(n);
for i := 1 to n do
s:=s+i*i;
writeln('Число шаров: ',s)
end.
Не нашли ответ?
Похожие вопросы