Решить в Pascal ABC!!! Вася-сладкоежка в первый день съел 10 конфет, а потом каждый день...

Question

Решить в Pascal ABC!!!
Вася-сладкоежка в первый день съел 10 конфет, а потом каждый день увеличивал дозу на 5 конфет. Когда у Васи заболят зубы, если боль появляется из-за K съеденных конфет в день.
Решить с WHILE...

Answer 1

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.

---

Comments

спасибо а это сможешьКакой цифрой оканчивается сумма всех двузначных чисел, в записи которых имеется хотя бы одна цифра 3.

---

Смогу.