Каждый ежедневно болеющий гриппом человек может заразить окружающих. Составьте программу, определяющую, через сколько дней заболеют все ученики школы. Число учащихся школы ввести с клавиатуры.

При условии что каждый больной заражает от 1 до 5 человек каждый день, и что больные упорно ходят в школу

const

min_posible = 1;

max_posible = 5;

var all_students, ill, new_ill, days, i: integer;

Begin

Randomize;

Writeln ('Кол-во учеников школы = >');

read (all_students);

ill : = 1;

repeat

days : = days + 1;

new_ill : = 0;

for i : = 1 to ill do

new_ill : = new_ill + Random (min_posible, max_posible);

ill : = ill + new_ill;

Writeln ('День ', days:3,': Заразилось ', new_ill:5,' Больных ', ill:5);

until ill > = all_students;

Writeln (days);

End.