Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
UbisCraft
15.12.2021 06:32 •
Информатика
Дано целое положительное число n. найти 1 1 n+ 1 (n-1)+ ⋮ 1 2+ 1
Показать ответ
Ответ:
mashacherevchenko
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
iroytblatилья
20.09.2021 05:14
Обстановка С2. Робот в произвольной клетке поля. Закрасить клетки в углах поля. ...
Derety11
01.07.2021 15:14
Была получена телеграмма встречайте вагон 7 известно что в составе поезда 64...
jintonik2
26.01.2023 14:57
Сколько битов видеопамяти на один пиксель требуется для хранения двухцветного, четырехцветного, восьмицветного, шестнадцатицветного изображения....
gfjew56df
26.01.2023 14:57
Вкаком из перечисленных ниже предложении правильно расставлены пробела между словами и знаками препинания? 1)добрая слава бежит, а худая-летит. 2)добрая слава бежит,а худая -...
milana23456789
21.03.2020 00:30
К свойствам информации не относится Выберите один из 4 вариантов ответа: 1) полнота 2) актуальность 3) объективность 4) универсальность...
спасибо88
05.03.2020 15:20
Сколько минут потребуется модему, передающему информацию со скоростью 32 Кбит/с, чтобы передать 24-битное растровое изображение размером 800х600 пикселей?...
Onik2002
13.12.2020 18:41
Перенести программу из паскаля в питон var a, success, count, N, i: integer;begin count:= 0; readln(N); for i := 1 to N do begin readln(a); if a 5 then count := count + 1; if...
Maxi4601
11.09.2021 13:40
Из трёх равных квадратов сложили прямоугольник. найдите площадь этого прямоугольника, если периметр одного квадрата 12 сантиметров. дайте ответ в квадратных сантиметрах....
anhelinayeremenko30
11.09.2021 13:40
Сколько различных трёхзначных чисел у которых первая цифра 8 а все остальные нечётные...
ENGPrO
11.09.2021 13:40
Сочинение по на тему если бы я была принцессой...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.