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.

Answer 2

Решение задачи в Pascal ABC

Для решения данной задачи в Pascal ABC можно использовать цикл WHILE для моделирования увеличения дозы съедаемых конфет каждый день.

program SweetTooth;
var
  eatenCandies, day, K: integer;
begin
  eatenCandies := 10;
  day := 1;
  K := 100; // Устанавливаем значение K для определения, когда у Васи заболят зубы

while eatenCandies < K do
  begin
    writeln('Day ', day, ': ', eatenCandies, ' candies eaten');
    eatenCandies := eatenCandies + 5;
    day := day + 1;
  end;

writeln('It took ', day, ' days for Vasya to eat ', K, ' candies and get a toothache.');
end.

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

Результат выполнения программы

После выполнения программы, она выведет количество дней, за которое Вася съел достаточное количество конфет для того, чтобы у него заболели зубы.

Например, если установить значение K равным 100, программа выведет: ``` Day 1: 10 candies eaten Day 2: 15 candies eaten Day 3: 20 candies eaten Day 4: 25 candies eaten Day 5: 30 candies eaten Day 6: 35 candies eaten Day 7: 40 candies eaten Day 8: 45 candies eaten Day 9: 50 candies eaten Day 10: 55 candies eaten Day 11: 60 candies eaten Day 12: 65 candies eaten Day 13: 70 candies eaten Day 14: 75 candies eaten Day 15: 80 candies eaten Day 16: 85 candies eaten Day 17: 90 candies eaten Day 18: 95 candies eaten Day 19: 100 candies eaten It took 19 days for Vasya to eat 100 candies and get a toothache. ```

Таким образом, программа позволяет нам определить, через сколько дней у Васи заболят зубы в зависимости от увеличения дозы съедаемых конфет.