lenaguceva
30.08.2022 04:01

По паскалю. сергей сложил пирамиду. на вершине пирамиды лежит один кирпич, на втором сверху ряду два кирпича, на третьем - три, и т.д., в нижнем ряду пирамиды количество кирпичей равно количеству уровней пирамиды. после этого он написал на каждом кирпиче по числу, равному количеству кирпичей на этом уровне, т.е. на верхнем уровне 1, на втором уровне 2, и т.д. определите сумму чисел написанных на кирпичах. программе даётся целое число n — количество уровней в пирамиде. необходимо вывести сумму чисел написанных на кирпичах. без использования циклов while, repeat и массивов.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Акося3557
05.10.2020 19:24
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.
0,0(0 оценок)
Ответ:
ulialepsha
05.10.2020 19:24
Искомое число будет равно 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота