Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Tkaiem
20.04.2021 17:26 •
Информатика
2/3+3/4+4/+10/11 составить программу в паскале
Ответ:
Даня1681
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 оценок)
Популярные вопросы: Информатика
anastasiamrz
14.03.2022 11:02
Нужно объяснить, как из этих цифр получились символы (цифры начинаются на 2 картинке)...
иоргерлпщпл
21.03.2020 17:07
Тильні проекти власної структури нанок створить папку лініі. 3. Відкрийте середовище Lazarus, створіть новий проект. Змініть значеннявластивості Caption об єкта Forml на малювання...
veronikageletii
23.11.2020 15:13
Заготовка майбутнього документа, що містить різні об єкти називається...
karinademina8
16.05.2021 02:07
В кодировке КОИ-8 каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов):«Личи, гуава, дуриан, кумкват, тамаринд, мангустин, джаботикаба — экзотическиефрукты».Ученик...
Gdyfyttyffhfry
23.09.2021 17:50
Задание 2.алгоритма;Определите значение переменной и после выполненияb;=a/2 * b3* DВ отнете укасите одно целое число - значение переменной а.Задание 3. Дано расстояние в сантиметрах....
osama95w
25.11.2020 13:51
Більше з двох цілих чисел замінити їх сумою, а менше – поділити на 2. Вивести обидва числа....
romkagamernumbp0bv1q
18.08.2021 00:56
Витя, петя и даша нарисовали картины. детей спросили, кто что нарисовал. я нарисовал горы- ответил витя. а я нарисовала лес-сказала даша. и оба высказывания были ложными....
pportop
18.08.2021 00:56
Сколько значащих нулей в двоичной записи десятичного числа 512?...
candiesgirl16
18.08.2021 00:56
Заполнить массив из 10 элементов следующими числами в паскале : -1,1,-1,1,-...
Лида147
24.03.2022 09:30
Калькулятор для инопланетян работает в четверичной системе счисления и для вывода числа на экран имеет только четыре знакоместа. с каким самым большим числом они могут работать?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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