5. Из 500 учащихся школы на данный момент болеют гриппом M человек. Определить, через, сколько дней будет болеть более половины учеников школы, если каждый день число больных увеличивается на 15% от заболевших. Паскаль.

program zz1;

var a, M, c:real; / / вводим переменные целого типа

i:integer;

begin

/ / задаем количество учащихся в школе

A:=500;

write (' введите число M'); / / вводим с клавиатуры количество первоначальных больных

read (M);

i:=1; / / задаем первый день

while M < a / 2 do / / организуем цикл, пока больных меньше половины

begin

m:=m + m * 15/100; / / увеличиваем больных на 15%

i:=i + 1; / / считаем дни

end;

/ / выводим ответ

write (' более половины учеников школы будет болеть через ', i, ' дней ');

end.