Составить программу: Маленький обжора съедает ежедневно на 20 конфет больше, чем в предыдущий день и ещё 2 конфеты. Вывести на экран, через сколько дней количество съеденных конфет превысит 100, если в первый день съедено 12 конфет

Question

Информатика

Арсений

21 ноября, 16:18

Составить программу: Маленький обжора съедает ежедневно на 20 конфет больше, чем в предыдущий день и ещё 2 конфеты. Вывести на экран, через сколько дней количество съеденных конфет превысит 100, если в первый день съедено 12 конфет

+3

Ответы (1)

Знаете ответ на вопрос?

Федуля · Answer 1

На каком языке?

Если 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