Решить в pascal ! вася-сладкоежка в первый день съел 10 конфет, а потом каждый день увеличивал дозу на 5 конфет. когда у васи заболят зубы, если боль появляется из-за k съеденных конфет в день. решить с
Var doza,k,day : integer;begin doza := 10; day := 1; writeln('Сколько конфет нужно есть, чтобы заболели зубы?'); write('> '); readln(k); while (k > doza) do begin doza := doza + 5; day := day + 1; end; writeln('Зубная боль наступит через '+day+' дней');end.
