В городе с 1 000 000 жителей объявили карантин на 100 дней. Статистика показала, что каждый день обращалось за диагнозом по 3 человека. Один из них был без заражения и должен пройти карантин. Двое были заражены, т.е. больны и проходили лечение. К сожалению, в каждый нечётный день карантина после его десятого дня начала один из лечившихся умирал.
Выведите на печать количество обратившихся за диагнозом, количество вылечившихся и количество умерших людей.
Сделать в PascalABCNet, по аналогии с вот этим кодом:
program coronavirus4;
begin
var
i, a, b, c, d, e: integer;
i := 100;
a := 1000000;
writeln( 'Количество дней ', i);
writeln('Количество жителей ', a);
b := 0;
d := 0;
for i := 1 to 100 do
begin
b := b + 3;
d := d + 1;
end;
Writeln('Количество обратившихся за диагнозом на карантин ', d);
c := b - d;
Writeln('Заболевшие ', c);
e := 0;
for i := 11 to 100 do
begin
if i mod 2 = 0 then
begin
e := e + 0;
end
else
begin
e := e + 1;
end;
end;
Writeln('Количество умерших ', e);
c := c - e;
Writeln('Количество выздоровевших ', c);
end.
ток не точ в точ
123456789012345678901234
