С цикла For
Через pascal
Составить программу: Маленький обжора съедает ежедневно на 20 конфет больше, чем в предыдущий день и ещё 2 конфеты. Вывести
на экран, через сколько дней количество съеденных конфет превысит 100, если в первый день съедено 12 конфет
296
318
Ответы на вопрос:
На каком языке?
Если basic тогда так:
private sub objora
dim x as integer
dim den as integer
x=12
den = 0
do
x=x+20+2
den = den + 1
loop while x>100
msgbox(den)
end sub
Объяснение:
Популярно: Информатика
-
Dashyliavvv14.03.2021 01:38
-
abduabdu201527.06.2021 11:09
-
enigma7514.03.2020 03:29
-
АнтонХабаров12.06.2023 20:05
-
КИРА2801200711.10.2020 20:48
-
manshev201817.03.2020 16:58
-
lordd00713.02.2021 11:24
-
Сонькамя20.07.2021 00:25
-
NoAl316.08.2022 12:54
-
NataliaKotic13.02.2021 06:36