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

Question

Ильина

30 декабря, 06:10

+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.