Задача по Паскалю.Сергей сложил пирамиду. На верхушке пирамиды лежит один кирпич,

Задачка по Паскалю.

Сергей сложил пирамиду. На верхушке пирамиды лежит один кирпич, на втором сверху ряду два кирпича, на третьем - три, и т.д., в нижнем ряду пирамиды количество кирпичей одинаково количеству уровней пирамиды. После этого он написал на каждом кирпиче по числу, одинаковому количеству кирпичей на этом уровне, т.е. на верхнем уровне 1, на втором уровне 2, и т.д. Обусловьте сумму чисел написанных на кирпичах.

Программке даётся целое число n количество уровней в пирамиде.
Нужно вывести сумму чисел написанных на кирпичах.

Без использования циклов while, repeat и массивов.

Задать свой вопрос
2 ответа
Разыскиваемое число будет равно  1^2 + 2^2 + 3^2 +...+ (N-1)^2 + N^2
Вариант поиска суммы с внедрением цикла for:
var
  n, i, sum: integer;
begin
  sum := 0;
  readln(n);
  for i := 1 to n do
    sum := sum + sqr(i);
  writeln(sum);
end.
Вариант поиска суммы с внедрением рекурсивной функции:
function f(k: integer): integer;
begin
  if k = 1 then
    f := 1
  else
    f := sqr(k) + f(k-1)
end;
var n : integer;
begin
  readln(n);
  writeln(f(n))
end.
Var n,sum:integer;
begin
read(n);(*Не уверен, можно ли присвоить счетчику значение с клавиатуры*)
for var i := n downto 1 do
for var j := i downto 1 do sum:=sum+n;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт