Question

Вычислите и выведите на экран количество кирпичей в пирамиде из 25 слоёв если известно,что количество кирпичей в каждом слое равно квадрату порядкового номера слоя.

Answer 1

1 var 
2     i,n: byte;
3     s: integer;
4  begin
5     write('Сколько слоев в пирамиде? ');
6     readln(n);
7     for i:=1 to n do
8     begin
9     s:=s+i*i;
10   writeln('В ',i,'-м слое ',i*i,' шаров');
11   end;
12   writeln('В пирамиде из ',n,' слоев ',s,' шаров');
13   readln;
14  end.