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

Question

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

Answer 1

Var a,b,c:integer;
begin
 a:=12;
 b:=1;
 while a<100 do begin<br>  a:=a+20+2;
  b:=b+1; 
  end;
 writeln('Через ',b,' дней Вася съест ',a,' конфет');
end.