Задача по Паскалю.
Сергей сложил пирамиду. На вершине пирамиды лежит один кирпич, на втором сверху ряду два кирпича, на третьем - три, и т.д., в нижнем ряду пирамиды количество кирпичей равно количеству уровней пирамиды. После этого он написал на каждом кирпиче по числу, равному количеству кирпичей на этом уровне, т.е. на верхнем уровне 1, на втором уровне 2, и т.д. Определите сумму чисел написанных на кирпичах.
Программе даётся целое число n — количество уровней в пирамиде.
Необходимо вывести сумму чисел написанных на кирпичах.
Без использования циклов while, repeat и массивов.
Сергей сложил пирамиду. На вершине пирамиды лежит один кирпич, на втором сверху ряду два кирпича, на третьем - три, и т.д., в нижнем ряду пирамиды количество кирпичей равно количеству уровней пирамиды. После этого он написал на каждом кирпиче по числу, равному количеству кирпичей на этом уровне, т.е. на верхнем уровне 1, на втором уровне 2, и т.д. Определите сумму чисел написанных на кирпичах.
Программе даётся целое число n — количество уровней в пирамиде.
Необходимо вывести сумму чисел написанных на кирпичах.
Без использования циклов while, repeat и массивов.
More Questions From This User See All
Answers & Comments
begin
read(n);(*Не уверен, можно ли присвоить счетчику значение с клавиатуры*)
for var i := n downto 1 do
for var j := i downto 1 do sum:=sum+n;
end.
Вариант поиска суммы с использованием цикла 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.