Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Belka1985
09.09.2022 03:19 •
Информатика
2/3+3/4+4/+10/11 составить программу в паскале
Показать ответ
Ответ:
sogoyan2016
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 оценок)
Популярные вопросы: Информатика
DeNiSNoNs
26.04.2021 20:57
В языке племени «тумба-юмба» разрешены только четырехбуквенные слова, которые можно образовывать из букв алфавита в любых комбинациях. Известно, что словарный запас...
Виктор338
23.08.2022 01:52
1. примры обмена информацией между людьми.кто в вашем примере является источником,а кто приемником. 2.привидите пример источника информации и расскажите о нем 3....
MaxonA
23.11.2021 09:09
Составить программу в Паскале для обработки массива из 10 чисел Х = (–17,3; 13,2; –7; –2,36; 123,4; –0,3; 12,356; 142; 0; –1). Вычислить количество элементов массива...
232привет
24.07.2021 20:13
У и запиши верный ответ. (B∨K)&(B∨K¯¯¯) В ПОСЛЕДНЕЙ СКОБКЕ ОТРИЦАНИЕ ТОЛЬКО У К...
andreyBublik
10.01.2022 05:34
1.Бетке шегараны қалай қоямыз? 2. Бетке нөмірді қалай қоямыз? 3. Scratch программамасындағы жобаларды қалай баспаға шығаруға болады? Помагите...
garkachev20031
12.07.2020 12:48
Решите задачу под номером 4 с дано и пояснением...
аладик2
08.03.2021 17:58
Рассказываете о празднике в Wоrdе. Текст должен быть выполнен любым шрифтом размером 14 на одну страницу А4! Попробуйте сделать красивое оформление, исходя из возможностей...
anna0513wolf
03.08.2020 10:51
1. Какая характеристика определяет количество измерений входного звукового сигнала за 1 секунду? a. Частота дискретизации b. Разрядность дискретизации c. Длительность...
мария2081
28.12.2022 15:08
«История Операционных Систем для персонального компьютера». Нужно сравнить ныне существующие и уже отжившие свое ОС, выделить отличия и найти сходства. (ответ должен...
gg322
27.07.2020 06:13
Создайте математическую модель периметра треугольника. ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
Вариант 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