Программирование по решить 1. Вычислить сумму ряда чисел 1/12 + 1/22 + 1/32 + … + 1/n2, где n определяется - id1495265920200721 от 0005zet 21.07.2020 16:08

Question

Информатика: Программирование по решить 1. Вычислить сумму ряда чисел 1/12 + 1/22 + 1/32 + … + 1/n2, где n определяется пользователем. 2. Найти сумму первой и последней цифр любого целого положительного числа. Число вводится с клавиатуры 3. Для каждого натурального числа в промежутке от m до n вывести все делители, кроме единицы и самого числа. m и n вводятся с клавиатуры 4.Отгадать целое число, которое загадал компьютер в определенном диапазоне.

0005zet · Accepted Answer

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 function SHarm(m:integer):real:=Range(1,m).Select(x- 1/x).Sum; begin   var a:=ReadReal( a= );   var m:=1;   while SHarm(m) =a do Inc(m);   Writeln( m= ,m) end. Тестовое решение: a= 5 m=83 Указанный ряд - это известный в математике расходящийся гармонический ряд. Его приближенное значение суммы можно определить по формуле Эйлера: Нам требуется определить m, для которого S(m) a, тогда Будем искать m, отбрасывая дробную часть полученного результата, а...

MOGZ ответил