Программирование . Эпидемия чесотки в городе длится 20 дней. В городе N жителей (вводится пользователем). Выведите в цикле распространение эпидемии, если в день заражается Z=random(1000) человек. Вывод в виде: 14 день – здоровых 12378 больных 2367
More Questions From This User See All
Answers & Comments
N, Z, sick, day: integer;
begin
sick := 0;
day := 1;
write('Количество жителей: ');
readln(N);
while (day <= 20) and (sick < N) do
begin
Z := random(1000);
sick := sick + Z;
if sick > N then sick := N;
writeln(day, ' день - здоровых ', N - sick, ' больных ', sick);
day := day + 1;
end;
end.