Программирование . Эпидемия чесотки в городе длится 20 дней. В городе N жителей (вводится...

Question

Программирование . Эпидемия чесотки в городе длится 20 дней. В городе N жителей (вводится пользователем). Выведите в цикле распространение эпидемии, если в день заражается Z=random(1000) человек. Вывод в виде: 14 день – здоровых 12378 больных 2367

Answer 1

Var
  N, Z, sick, day: integer;
begin
  sick := 0;
  day := 1;
  write('Количество жителей: ');
  readln(N);
  while (day <= 20) and (sick < N) do<br>  begin
    Z := random(1000);
    sick := sick + Z;
    if sick > N then sick := N;
    writeln(day, ' день - здоровых ', N - sick, ' больных ', sick);
    day := day + 1;
  end;
end.