Счётчик = 2;
член_ряда = 1;
сумма = 1;
ввод n;
ввод x;
пока (счётчик <= n)
{
член_ряда = 1/(счётчик*x);
cумма = сумма + член ряда;
счётчик = счётчик + 1;
}
вывод суммы;
Алгоритм не проверял, так что проверь.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Var i:integer;
begin
for i:=10 downto 1 do
writeln(i);
end.
1. N=32-(-32)=6
2 в 7 степени=128
2 в 6 степени>65<2 в 7 степени
i=7
40960:7=286720 бит
С
помощью функции "ОТБР", которая усекает число до целого, отбрасывая дробную часть
числа, так что остается целое число, исходное число делим на разряды, которые
затем суммируем
Пример решения в файле