Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Немножко000Фетешист
14.08.2022 11:00 •
Информатика
Дано число n (> 0) найти сумму 1-0.5+0.25-0.125+ паскаль абс работа на использование цикла вайл, фор или рипит буду блогодарен
Показать ответ
Ответ:
mjh60661
02.07.2020 20:51
Var n, i:integer;
s, k:real;
begin
k:=0.5;
writeln('vvedy n');
readln(n);
for i:=1 to n do
k:=k+(k*0.5);
s:=1-k;
writeln(s:5:5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AnyMaskelyne
20.05.2020 22:15
Чому не можна працювати за комп ютером без операційної системи?...
TheEasyCloud
20.12.2021 10:36
1. Абсолютная масса атома водорода равна: A) 1г B) 1 г/атом C) 1а.е.м. D) 1 Е) 1 г/моль 2. Электроотрицательность атомов галогенов возрастает в ряду: A) F, Cl, Br,...
zeralskaya
13.05.2022 03:29
В ряд выписаны все натуральные числа: 123456789101112131415… . Какая цифра стоит на 2000-м месте?...
gubankowauly19
18.08.2022 13:02
Блуждающий нерв оказывает на мышцу сердца...
curlyprettygirl
28.05.2023 16:37
В доме 360 квартир. На дверь каждой квартиры необходимо повесить ее номер, сколько нужно будет сделать цифр, чтобы пронумеровать все квартиры?...
Tochi1
13.06.2021 10:31
Слово, словообразовательная морфема в котором имеет книжную окраску: а) толстенный;б) электричка:в) отчетность;г) сестричка;...
sonyaponchic
13.06.2021 10:31
Напишите план-конспект тема возвращенная литература и задержанная литература...
obzoredy
02.07.2021 23:02
ответься на один вопрос теста...
nastiamakeeva0
29.10.2022 22:43
Образующая конуса равна 25 см, а радиус основания -7 см. Найдите его объём....
zagertdinovIlfat
13.01.2020 23:20
При какой температуре наступит равновесие в системе?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s, k:real;
begin
k:=0.5;
writeln('vvedy n');
readln(n);
for i:=1 to n do
k:=k+(k*0.5);
s:=1-k;
writeln(s:5:5);
end.