Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
данил2908
07.01.2021 16:40 •
Информатика
Вычислите частичную сумму ряда s=1+1/2+1/4+1/8+ вычисления прекратите,когда модуль очередного слагаемого станет меньше 0,001
Показать ответ
Ответ:
Lera6807
08.10.2020 00:31
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (s,d):=(1.0,1.0);
repeat
d/=2.0; s+=d
until d<0.001;
Writeln(s:0:4)
end.
Результат
1.9990
0,0
(0 оценок)
Популярные вопросы: Информатика
kisik404
14.04.2020 04:06
Закодировать свое фио с табл кодировки мое фио теуважукова аделина руслановна...
Тьома11
14.04.2020 04:06
Закодировать свое фио с таблицы кодировки мое имя фамилия теуважукова аделина руслановна...
АлиOчкА
16.03.2023 05:35
Дан вектор f: array [1..10] of integer; 1|15|5|3|4|25|-8|-3|12|4 найти: k: =0; for i: =2 to 10 do if f[i] mod 5=0 then k: =k+1; {вывод k}...
ОльгаГалюткина
15.02.2020 18:32
Составить алгоритм для рисователя для построения рисунка из приложенном файле. основа программы: использовать рисовательалгнач-конкоманды для рисователя: в точку...
їка
01.09.2021 13:46
Веб программирование современные технологии и возможности - доклад...
jest2
06.05.2020 23:47
1. какое значение переменной s будет напечатано после выполнения фрагмента программы, записанной на языке программирования pascal: а: =2; в: = 3; if a b then s:...
20setora03
27.07.2020 07:00
Пр информатике. изучили операторы for, if ,while , repeat . составьте программу , . если на одну чашу весов посадить мальчика , который весит n - кг , а на др. чашу...
Maks2021
27.07.2020 07:00
Значения двух массивов а[1..10] и b[1..10] с следующего фрагмента программы: for n: =1 to 10 do begin a[n]: = – n – n; b[11 – n]: = a[n] end; for n: =1 to 10 do...
наташа934
02.05.2022 07:02
)96. дано предложение, в котором имеются одна буква «с» и одна буква «т». определить, какая из них встречается раньше (при просмотре слова слева направо). это паскаль,...
Уликак
02.05.2022 07:02
Даны n чисел. найдите произведение максимального и минимального из них...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var (s,d):=(1.0,1.0);
repeat
d/=2.0; s+=d
until d<0.001;
Writeln(s:0:4)
end.
Результат
1.9990