Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ffpfodo
20.06.2022 22:03 •
Информатика
Найдите сумму чисел 1/2+1/4+1/6+/20
Показать ответ
Ответ:
Персик1лайм
07.10.2020 18:45
Const num=20;
var i,j:byte;
r:real;
begin
i:=2;
r:=0;
while i<=num do begin
r:=r+1/i;
i:=i+2;
end;
writeln('1/2+1/4+1/6+...1/20 = ', r);
end.
0,0
(0 оценок)
Ответ:
Kikiro
07.10.2020 18:45
Если честно, то не понятно в чем суть вопроса...И тут легко ошибиться, но ответ 1.9875
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05
0,0
(0 оценок)
Популярные вопросы: Информатика
soloviovav82owjd2t
08.04.2022 15:17
8. написать программу, которая по выбору пользователя меняет цвет консольного приложения. пользователь может выбрать цвет шрифта и цвет фона.c++ if else...
Wow019282
08.04.2022 15:17
Напиши порядок действий для, создания условного формотирования...
AlexandraB11092003
08.04.2022 15:17
Создать список в питоне удалить из него все нули и добавить их в другой 20...
raynis2
13.08.2020 13:51
8. вычислите значение переменной x после выполнения фрагмента программы на языке программирования turbo pascal: a : = 5; b : = 6; c : = 7; if (a = b) or (b c) then...
Samira543
11.04.2021 23:44
27. Разработать программу на языке программирования Turbo Pascal:а) Найти наибольший элемент матрицы а(13, 13), расположенныйВыше главной диагонали, и номера столбца...
принцесса212
11.10.2022 18:24
Как называется графическая информационная модель, которая является очень точной и указывает все необходимые размеры? 1. карта2. матрица3. чертеж4. ...
mrneneen
11.12.2021 07:18
Создать массив записей, хранящий сведения о животных в зоопарке. запись должна содержать следующие поля: название животного, кличка, год рождения, масса, необходимое...
braaauberg
29.07.2021 19:21
Дайте описание систем автомобиль урок магнитофон как черных ящиков...
влад22771
06.03.2021 20:05
Cоставте программу которая вычесляет произведение 10 произвольных целых двухзначных чисел (цикл с предусловием ,pascal)...
Umniyera
26.06.2021 20:48
с алгеброй сделайте сколько можете...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,j:byte;
r:real;
begin
i:=2;
r:=0;
while i<=num do begin
r:=r+1/i;
i:=i+2;
end;
writeln('1/2+1/4+1/6+...1/20 = ', r);
end.
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05