Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
LeysAn11234
23.12.2022 08:31 •
Информатика
Опять задана арифметическая прогрессия 2; 2,8; … . сколько членов прогрессии нужно сложить, чтобы полученная сумма стала > 20.
Показать ответ
Ответ:
GLid
02.10.2020 05:23
A := 2.0;
i := 1;
while (a < 20) do
begin
a := a + a + 0.8;
inc(i);
end;
writeln(i);
0,0
(0 оценок)
Ответ:
lara1906
02.10.2020 05:23
Ну наверно так:
program qq;
var i:integer; sum,num:real;
Begin
num=2;
sum:=2;
i:=1;
while(sum<=20)
Begin
i:=i+1;
num:=num+0.8;
sum:=sum+(sum+num);
End;
Writeln('Количество членов прогрессии: ', i);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
LeraT12
16.01.2021 04:26
Допишите последовательность команд присваивания, меняющую местами значения двух величин X и Y (X ↔Y) A:=X X:=Y ......
marius95
29.10.2020 08:15
В MS Excel создать и отформатировать таблицу, содержащую не менее 10 сток и не менее 10 столбцов (на первом листе, из них минимум 5 столбцов – расчетные), создать и отформатировать...
bbb87
04.02.2021 20:32
Рассмотрите рисунок и запишите формы ветвления Мой ответ помагите у меня сор...
xiu99
04.01.2020 09:00
Служебная таможенная собака различает 50 запахов запрещенных веществ. На обнюхивание одного объекта она затрачивает 1 мин. Какое количество информации поступает собаке за...
kamshatsabyr
11.05.2022 21:13
Определите в ячейке с7 вторую цифру большего из чисел находящихся в ячейках А1:А6 и В2:В5...
ilyu777
24.07.2020 15:12
я вообще не шарю в Алгебре. Итоговая контрольная работа по алгебре 7 класс Найди значение выражения наиболее рациональным Вычисли: а) 0,139000+(19)227 б) (c7)5c7c5 У выражение:...
cetpersik
28.05.2023 17:43
Учебник береговская 2 часть четвёртый класс французский язык страничка 95 номер...
MashaBelous
15.01.2022 15:24
Прочитайте уривок із сучасної циклопи дії українська мова і дайте відповіді на запитанняЛЮДИ ДУЖЕ ТРЕБА ДО ТЬ ІВ І ПІДПИСУЮСЬ НА ІНСТАГРАМ І ЛАЙКАЮ ВСІ ФОТКИ...
Кактус860
13.09.2021 14:22
Контрольная работа по теме Обособленные предложения I вариант Задание № 1. Выпишите предложение с обособленным определением? (Знаки препинания не расставлены.)Подчеркните...
ivanovaa750
24.07.2020 15:12
Как зависит концентрация молекул газа от его объема?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i := 1;
while (a < 20) do
begin
a := a + a + 0.8;
inc(i);
end;
writeln(i);
program qq;
var i:integer; sum,num:real;
Begin
num=2;
sum:=2;
i:=1;
while(sum<=20)
Begin
i:=i+1;
num:=num+0.8;
sum:=sum+(sum+num);
End;
Writeln('Количество членов прогрессии: ', i);
End.