Войти
Регистрация
Спроси ai-bota
support38
26.04.2021 14:47
2/3+3/4+4/+10/11 составить программу в паскале
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Kamper5678
21.03.2021 03:38
Төменде берілген программа кодтарын жазуда жіберілген қатерлерді тап...
mooncat1
09.01.2021 07:43
Чему равно значение выражения1) 16//52) 11%23) 4**2 ...
vanya199jj
07.03.2023 22:32
Дані дійсні числа х та у. Знайти min(х,y) і max( x,y). Записати у програмі Python...
Scelet911
11.07.2020 03:35
Дополни таблицу данных величина,числовые данные значения величины,текстовые данные единицаизмерения скорость время расстояния вес цена возраст рост длина обьем это таблица...
Kamila28032001
12.03.2023 00:03
Сколько цветов будет содержать палитра, если на один пиксельотводится отводится 4 бита памяти...
damirpro
29.01.2020 13:45
1. задайте массив из 10 элементов с датчика случайных чисел. замените все нечетные элементы с четными индексами на нули. выведите на экран исходный и полученный массивы. 2....
marinalebedeva5
06.11.2021 20:12
Определить результат выполнения алгоритма по блок схеме d=120, k=1,5,1, d=d/k, d, конец...
576474811624
20.09.2022 14:35
ответьте на во письменно)1. Как изменить ориентацию страницы?2. Как изменить размер страницы?3. Где (интерфейс окна) находится строка состояния в программе MS Word?4. Как...
Анна12011
03.08.2022 02:36
С ИНФОРМАТИКОЙ Что будет напечатано по выполнении следующего фрагмента программы: s1 := кит ; s2 := кот ; if s1 s2 then Writeln(1) else Writeln(2); ответом должно быть целое...
георг9
25.04.2023 14:58
Для открытия дверей требуется ввести код, он должен быть не длиннее 8 символов, а сумма цифр должна быть рагу 32. Если длину записать в виде L, а сумму цифр в виде S, то как...
Ответ:
PokerFresh
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота