Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
nataliyapotehi
21.06.2020 10:28 •
Другие предметы
Написать программу вычисления суммы 1 + 1/2 + 1/3 + ... + 1/n для заданного числа n. Результат представить в виде несократимой
Показать ответ
Ответ:
Steyflie
16.04.2019 23:00
function sum(n:integer):real;
var s:real;
begin
s:=1/n;
if n>1 then s:=s+sum(n-1);
sum:=s;
end;
var n:integer;
begin
readln(n);
write('S = ',sum(n):0:3);
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
shol09
22.01.2020 00:14
Заполни таблицу Весной длина дня и ночи одинаковая...
Anne413
01.11.2021 06:10
До чого призводить тривале перебування в середовищі отруєному вихлопними газами автомобілів?...
ghvghbb
24.02.2023 02:09
Какие слова-жаргоны вредны для нашей речи и почему...
elyushik
03.02.2022 15:25
По горизонтали 1.Главная цель занятий физкультурой. 2. Как называется стойка спортсмена перед началом упражнения? По вертикали: 3. Что может меняться в упражнениях разной дозировки?...
Anna456anna
24.07.2020 19:44
У яким стали ужываюцца словы з пераносным значэннем...
saidovabduraxm
05.03.2020 22:33
Чем отличается упражнение plie на уроке классического танца от plie на уроке народного танца?...
frisknilly
17.06.2020 07:25
Как вычислить размер конкретно 3д модели каждой детали? Если можете посоветуйте какие-нибудь программы...
Ksenon102
31.07.2021 06:43
Подскажите это ветка какого дерева?...
Rayana555
02.03.2023 21:17
Расставь знаки препинания. Укажи два предложения, в которых нужно поставить ОДНУ запятую. Запиши номера этих предложений в порядке возрастания (по одной цифре в каждое поле без знаков...
denisplaver
30.08.2022 02:40
Какие устройства используются для работы с графической цифровой информацией?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:real;
begin
s:=1/n;
if n>1 then s:=s+sum(n-1);
sum:=s;
end;
var n:integer;
begin
readln(n);
write('S = ',sum(n):0:3);
end.