tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
2/3+3/4+4/+10/11 составить программу
2/3+3/4+4/+10/11 составить программу в паскале
nastyagorcha
2 13.09.2019 01:10
0
Ответы
sofa286
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sabina9262
02.10.2019 15:50
Напиши верный ответ: используя символы & , ¬, +, ∨ = а ∨ f...
taniaselikova
02.10.2019 15:50
Bотрицание конъюнкция a дизъюнкция a отрицание построить таблицу истинности...
seetneek
12.06.2019 13:40
Кто нибудь умоляю 1.составить программу которая вычисляет площадь круга и длинну окружности по введенному радиусу на паскале.2....
Adamant0813
12.06.2019 13:40
Определите, чему равен информационный объём (в байтах) следующего высказывания рене декарта, закодированного с 16-битной кодировки unicode: я мыслю, следовательно,...
vladbelima2005
11.11.2020 21:43
Для чего применяются слои?как вставить новый слой?как удалить слой?...
Olya199701
11.11.2020 21:43
нужно написать программу в Pascal abc Рассматривается множество целых чисел, принадлежащих числовому отрезку [8800; 55535], которые удовлетворяют следующим условиям:...
пипиша
11.11.2020 21:43
Переводим американские единицы измерения в метрические . Module Math Одна миля (mile) равна значению в 1,609 км. • Напишем программу, которая бы выполняла преобразование...
AriPanowa2005
06.10.2019 06:02
Прочитайте условие и составьте блок схему...
alanka280606
06.10.2019 06:02
На школьном дворе разбивают 4 клумбы прямоугольной формы. первая клумба представляет собой квадрат со стороной 11 метров. вторая клумба имеет форму прямоугольника,...
руслан7661
06.10.2019 06:02
Дополните по аналогий: человек - записная книжка , компьютер: а) процессор. б) долговременная память. в)клавиатура г)монитор...
Популярные вопросы
Все вопросы по германии ! ! 1) горы на территории фрг? 2) район...
2
Вопрос № 12 как люди стали обзывать катю из-за ее нежелания забыть...
3
Решить , 1. add the ending -ed write - travel -...
1
Решите с дано и полностью распишите. (фото ниже)...
1
Составить таблицу население: 1)зона,2)население,народы,жилища,3)деятельность...
3
Основная культурная одел преуда скажите ...
2
[tex]\left[\begin{array}{ccc}3& 3& 3\\3& 3& 3\\3&...
1
Galata town essay и потом стамбул море факт напишите на ...
3
А5бпод. используя рисунок 65, перечислите элементымножеств: 1)...
3
Умоляю как можно быстрее выбрать нужные слова...
1
// Внимание! Если программа не работает, обновите версию!
Вариант 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