Определите количество шаров в пирамиде состоящей из n слоев если количество шаров в слое равно квадрату номера слоя

Question

Малх

15 апреля, 09:08

+1

Ответы (1)

Знаете ответ на вопрос?

Гонората · Answer 1

Var n, s, i: integer;

begin

write ('Количество слоев: ') ;

readln (n) ;

for i : = 1 to n do

s:=s+i*i;

writeln ('Число шаров: ', s)

end.