1. Информатика
  2. По паскалю. сергей сложил

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

Neekeetos Neekeetos    2   25.08.2019 18:50    4

Ответы
nyk156 nyk156  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.
ПОКАЗАТЬ ОТВЕТЫ
seregamani seregamani  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
zill81 zill81  12.12.2020 06:25
Определите назначение клавиш Сохранение рисунка.При перетаскивании фигуры при зажатииданной клавиши получится копированиеузора со следом.ShiftПри перетаскивании...
SofiaBlack17 SofiaBlack17  12.12.2020 06:25
13. как записывается логическая команда в Excel? а) если (условие, действие1, действие 2);б) (если условие, действие1, действие 2);в) =если (условие, действие, действие...
лёша2002z лёша2002z  12.12.2020 06:24
определить истинность высказывания (¬z⇒¬x∧(y∨x))∧(z∨¬x∧y) Составьте таблицу истинности...
overmaker overmaker  12.12.2020 06:24
Для чего нужен лупа инструмент sketchup от...
зика22 зика22  12.12.2020 06:24
Работа с кривыми. Урок 2 Изучи предложенные изображения и определи, какая фигура создана с операции «Разность». Рис. 1 Рис. 2 Рис. 3 Рис. 4...
юлия1764 юлия1764  12.12.2020 06:23
Чему будет равен информационный объем символа, если мощность этого алфавита равна 256?...
AnnKJ AnnKJ  12.12.2020 06:22
10. Изменение внешнего вида таблицы, имеющего своей целью отображение только тех записей, которые обладают нужнымипользователю свойствами​...
Lana0602 Lana0602  16.02.2020 11:26
с примерами по Информатике...
Катюшкавасилек Катюшкавасилек  16.02.2020 11:26
Задание на Python) Создать программу с окном (использовать Tkinter), которая будет рассчитывать затраты в грн за потребленную электроэнергию , газ, холодную воду....
Сергей00431 Сергей00431  13.04.2020 08:24
Дан целочисленный двумерный массив размерности n×m. Вывести его элементы, индексы которых являются степенями двойками в паскале! Желательно с комментариями, в интернете...

Популярные вопросы