Определить, через сколько дней число посещающих школу составит менее половины учащихся школы. - Pascal ABC
Формулировка задачи:
Из 800 учащихся школы на данный момент посещают школу N человек. Определить, через сколько дней число посещающих школу составит менее половины учащихся школы, если число не больных школьников каждый день уменьшается на 10% от предыдущего дня.
Решение задачи: «Определить, через сколько дней число посещающих школу составит менее половины учащихся школы.»
textual
Листинг программы
var n,k:integer;
begin
repeat
write('Введите количество не больных школьников от 401 до 800 n=');
readln(n);
until(n>400)and(n<=800);
k:=0;
while n>400 do
begin
n:=round(n*0.9);
k:=k+1;
end;
write('Через ',k,' дн. ',' количество учащихся составит менее половины = ',n);
end.
Объяснение кода листинга программы
- Объявлены две переменные: n и k типа integer (целое число).
- В цикле repeat-until осуществляется ввод числа n от 401 до 800 и продолжается до тех пор, пока не будет введено число больше 400 и меньше или равное 800.
- Переменная k инициализируется значением 0.
- В цикле while выполняется уменьшение числа n на 0.9 от его значения, пока число не станет меньше или равным 400.
- В конце программы выводится сообщение с количеством дней k и значением переменной n.