<u>// PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
Range(ReadInteger,1,-1).Select(t->1/t).Sum.Println;
end.
<u>Пример</u>
50
4.49920533832942
Мой совет - запомнить как основную формулу для суммы первых n натуральных чисел
Доказывается она так: записываем те же числа в обратном порядке:
и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. Поскольку в первой сумме каждое следующее слагаемое на 1 больше предыдущего, а во второй на 1 меньше предыдущего, мы получим сумму одинаковых чисел:
слагаемых всего n, поэтому
Теперь несложно найти сумму первых n четных чисел. Можно провести подобную выкладку, а можно свести новую задачу к предыдущей:
Ответ:
Всего выпущено изделий на 1080 уе.
Надстройка, поиск решения в Excel.
Ответ:
1. 20
2. 30
Объяснение:
Это рекурсивный алгоритм, новые значения берутся из значений полученных ранее
F(1)=2
F(2)=F(2-1) + 2*2=2+4=6
F(3)=F(3-1) + 2*3=6+6=12
F(4)=F(4-1) + 2*4=12+8=20
Аналогично со 2 алгоритмом
В строчке read('a'); апострофов быть не должно. Замени на read(a);