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

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

Question

Информатика

Амвросий

29 января, 19:28

Пупкин Вася съедает ежедневно на 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.