Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Annet234
24.03.2021 08:31 •
Информатика
2/3+3/4+4/+10/11 составить программу в паскале
Ответ:
AINASH751212
21.08.2020 07:22
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
Вариант 1. Приблизительное решение.
begin
Writeln('S=',2.To(10).Select(t->t/(t+1)).Sum)
end.
Результат
S=7.48012265512266
Вариант 2. Точное решение
uses NumLibABC;
begin
var s:=Frc(0);
for var i:=2 to 10 do s+=Frc(i,i+1);
Writeln('Точное значение ',s,', приближенное ',s.ToReal)
end.
Результат
Точное значение 207349/27720, приближенное 7.48012265512266
0,0
(0 оценок)
Популярные вопросы: Информатика
Лев1234567
22.11.2022 07:43
я не могу понять как это решать, я уже пытался 2099 раз...
макс3113
25.01.2022 23:00
составьте доклад небольшой четыре-пять предложений на тему забота об окружаюшей среде...
radmirhik2706
11.04.2020 07:02
по информатике.У Светы и Нади есть 10 литровое ведро и 6 литровое ведро. Девочкам нужно принести ровно 2 литра воды. Как им действовать? При условии, что воду можно...
IiiPON4IKiiI
04.03.2020 17:15
Какую алгоритмическую структуру используют для обработки массивов?...
Pingvinchikc
05.06.2020 17:26
Какое описание действий алгоритма соответствует этому объекту в блок-схеме *Начало и окончаниеКомментарийБлок ввода данных или выводаПроверка условияБлок обработки...
hfyfghhvu
16.02.2021 02:34
с информатикой: Создать массив и вывести положительные элементы массива и их номера. Элементы массива вводятся генератором случайных чисел. Например: Если массив а[1..5]:...
ioOllOoi
16.04.2023 00:56
Надо решить задачу на python 3 Найти среднее арифметическое каждой строки матрицы...
Сёма1992
16.04.2023 00:56
Не будьте без человечны мне Сканируется цветное изображение размером 10,16×10,16 см. Разрешающая сканера — 600×1200 dpi, глубина цвета — 16 бита. Какой информационный...
anyaradzivon
17.11.2022 13:49
Как называется специальную область оперативной памяти компьютера, предназначенная для копирования и перемещения фрагментов текста. * Панель инструментов Буфер обмена...
oksanastrilets
13.12.2022 00:57
Чому будет дорівнювати с, якщо int a = 10; int b = 4; bool c = (a == 10 && b == 4)?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
Вариант 1. Приблизительное решение.
begin
Writeln('S=',2.To(10).Select(t->t/(t+1)).Sum)
end.
Результат
S=7.48012265512266
Вариант 2. Точное решение
uses NumLibABC;
begin
var s:=Frc(0);
for var i:=2 to 10 do s+=Frc(i,i+1);
Writeln('Точное значение ',s,', приближенное ',s.ToReal)
end.
Результат
Точное значение 207349/27720, приближенное 7.48012265512266