Пупкин Вася съедает ежедневно на 20 конфет больше, чем в предыдущий день, и ещё 2 конфеты.

Выведите на экран, через сколько дней количество съеденных конфет превысит 100, если в первый день съедено 12 конфет

Question

Информатика

Лавруся

31 августа, 16:22

Пупкин Вася съедает ежедневно на 20 конфет больше, чем в предыдущий день, и ещё 2 конфеты.

Выведите на экран, через сколько дней количество съеденных конфет превысит 100, если в первый день съедено 12 конфет

+1

Ответы (1)

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

Тихомира · Answer 1

Var a, b, c:integer;

begin

a:=12;

b:=1;

while a<100 do begin

a:=a+20+2;

b:=b+1;

end;

writeln ('Через ', b,' дней Вася съест ', a,' конфет') ;

end.