Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
marinamelnik19p07421
30.11.2020 00:51 •
Информатика
Вычислить сумму ряда до n количества значений s=1+ 1/2+1/4+1/(8 )… напишите программу в паскале
Показать ответ
Ответ:
volk007volk
25.08.2020 01:58
Не очень корректная постановка задачи, но понять можно.
var n,i:integer; s,a:real;
begin
write('n=');readln(n);
s:=1;a:=1;
for i:=2 to n do
begin
a:=a*2; s:=s+1/a;
end;
writeln('s=',s:6:4);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
круголс
31.05.2022 02:15
Составить программу, которая спрашивает: «какой предмет вы изучаете? » и после ответа (например, «») сообщает: « – любимый предмет многих»....
pokhvatovadiana
28.03.2023 03:59
Кто и объяснит как делать тому 90 )...
zhanbolat2007
13.12.2021 15:11
Как будут располагаться основные логические операции в порядке увеличения их ранга?...
NekitFe
21.01.2022 11:44
Про який об’єкт бази даних іде мова? це один із основних об єктів бази даних, що забезпечує зручний для користувача інтерфейс під час уведення, перегляду чи редагування...
alins3
21.05.2021 20:44
Как построить таблицу истинности ( подробно)...
inessaqwerty
30.05.2023 06:55
Цифры на экране калькулятора отображаются при ячеек. каждая ячейка состоит из 3 горизонтальных, 4 вертикальных и 2 диагональных перекладин, как показано на рисунке(0123456789)....
linaaaaaaa11111111
05.05.2021 08:13
Определите отношения между понятиями и изобразите эти отношения в виде кругов эйлера по образцу: земля, марс, солнечная система, солнце, космическая система...
Doktor77
03.04.2023 13:18
Пользователь работал с файлом summer.jpg. Данный файл находился у него на съёмном носителе F в папке Фото. В свою очередь папка Фото находилась в папке 2020. При этом папка...
pepsy94zm
26.03.2022 23:27
Чему будут равны значения в ячейках A6 и вы после выполнения команды копиРОВАТЬ А2:B2 в А3:B6? ...
lenaseredenko
02.02.2022 03:24
Создать в редакторе растрового типа рисунок. изображение нужно создать самостоятельно, не используя функцию копирования. промежуточные варианты создания изображения в виде...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i:integer; s,a:real;
begin
write('n=');readln(n);
s:=1;a:=1;
for i:=2 to n do
begin
a:=a*2; s:=s+1/a;
end;
writeln('s=',s:6:4);
end.