Question

На зерновом складе в начальный момент было 18672 тонны зерна.Каждый день со склада вывозилось 0,5% зерна от общего количества. через сколько дней зерна станет меньше 20 тонн?

Answer 1

program timeSeed;
 const
  totalSeed=18672;
  lessThan=20;
 var
  Days:word;
begin
 Days:=(totalSeed-lessThan+1) div round(totalSeed/200);
 write('Days - ',Days);  readln;
end.