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

Question

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

Answer 1

При условии что каждый больной заражает от 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.