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

Question

Малх

31 января, 10:58

+3

Ответы (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.