1. Информатика
  2. Дано целое положительное число

Дано целое положительное число n. найти 1 1 n+ 1 (n-1)+ ⋮ 1 2+ 1

ксюша1692 ксюша1692    3   02.09.2019 19:30    12

Ответы
Pipisk Pipisk  06.10.2020 13:02
Function D(n:integer):real;
Begin
if n > 1 then D:=1/(n+D(n-1))
else D:=1;
End;

Var
   n:integer;
Begin
Write('n = ');
ReadLn(n);
WriteLn(D(n));
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
akkiekim akkiekim  09.07.2019 15:40
Решите .выполнить подстановку операции чтобы равенство было верно. (1 and 0)_1=0...
averinatatka averinatatka  09.07.2019 15:40
Составьте алгоритм какого либо блюда на естественном языке...
mahomaev mahomaev  27.05.2019 14:50
Написать программу для паскаля. 1. написать программу нахождения произведения n чисел. 2. написать программу, рисующую на экране 5 цветных квадратов и 5 цветных кругов. размеры...
Djamkaa0325 Djamkaa0325  27.05.2019 14:50
Написать программку для паскаля. вычислить значения выражения, состоящего из n элементов, n ввести с клавиатуры: y = (1/2 + 2/3 + 3/4 +/(2/5 + 4/10 + 8/...
olgaerchik olgaerchik  27.05.2019 14:50
Заменить каждый символ * в строке на cимвол ?...
Dancerebuclic2017 Dancerebuclic2017  24.09.2021 14:42
,ПАСКАЛЬ написать программу,определяющую попадает ли заданная пользователем на плоскости точка с координатами Xp Yp в окружность с указанным им радиусом R и центром в точке...
nubpolymaster nubpolymaster  17.04.2020 09:43
с информатикой, буду благодарнаФото в закрепе....
Lisjkkkjjjjjjjjj Lisjkkkjjjjjjjjj  17.04.2020 09:42
Моделдеген желі ортасы дегеніміз не? ​...
SimpleNick SimpleNick  04.10.2019 09:41
Мистер фокс записал 12 целых чисел. настя написала в тетрадку произведение каждой пары из данных чисел. ровно 15 из написанных настей произведений оказались отрицательными....
Dimafdj Dimafdj  04.10.2019 09:41
20 ! так много камней брошено в меня, что ни один из них уже не страшен. сделайте синтаксический разбор, со схемами , буду !...

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