Решить в Pascal ABC!!! Вася-сладкоежка в первый день съел 10 конфет, а потом каждый день увеличивал дозу на 5 конфет. Когда у Васи заболят зубы, если боль появляется из-за K съеденных конфет в день. Решить с WHILE...
Answers & Comments
liris22
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.
2 votes Thanks 1
Хэлпер228
спасибо а это сможешьКакой цифрой оканчивается сумма всех двузначных чисел, в записи которых имеется хотя бы одна цифра 3.
Answers & Comments