Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
AlexNickrodef
29.09.2022 22:36 •
Информатика
Решить в паскале: s=1/(1+1)+1/(1+2)+/(1+n)
Показать ответ
Ответ:
owlllllll
09.07.2020 17:57
Program w;
Var i,n: integer;
S: real;
Begin
writeln('Введите число повторений');
readln(n);
for i:=1 to n do S:=S+1/(1+n);
writeln(S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
asemk85
15.07.2022 12:19
Как сделать схему понятий информатика,информация,данные,сигналы,информационные процессы (в текстовом редакторе word) скинуть фото схемы как сделать и видео в ютубе....
dmit0
24.08.2021 11:34
Конкатенация программирование...
АртурСоколов
22.03.2020 08:24
Решить задачу: Найти сумму четных цифр числа (с цикла ДЛЯ) КуМир...
chipssensey
22.03.2020 08:24
Створити програму на знаходження n-го числа ряду Фібоначч надо решить, очень если вы не знаете как решить, не надо писать сюда, хз, не знаю......
hitecheldo155
21.01.2023 04:05
Составить программу которая определяет количество цифр во введенном с клавиатуры целом числе решите для 10 класса...
котик2107
21.01.2023 04:05
Числа вам даны число n и цифра d. выведите все n-значные числа, которые не содержат цифру d, в возрастающем порядке. формат входных данных в единственной строке входного файла...
Игорь123454321
21.01.2023 04:05
Запишите по 2 суждения: 1. из 2. из 3. из биологии 4. из 5. из языка 6. из 7. из информатики...
ilaida1
11.10.2022 01:38
РЕШИТЬ ОДИН ИЗ ВАРИАНТОВ ГРАФИКОВ В ПРИКРЕПЛЁННОМ ФАЙЛЕ...
SherlokHoumsik
01.09.2020 21:38
Какая масса сульфур (VI) оксида объемом 5,6 л?...
sofyagorobecmaozu3v3
01.09.2020 21:38
Траскрипция и перевод слов: Nouns:athletecentAdverbshard / hardlyhigh / highlylate / latelynear / nearlycourtdollareuroOlympics (the)penny (two pence)poundswimming poolST...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var i,n: integer;
S: real;
Begin
writeln('Введите число повторений');
readln(n);
for i:=1 to n do S:=S+1/(1+n);
writeln(S);
End.