В городе с 1 000 000 жителей объявили карантин на 100
дней. Статистика показала, что каждый день обращалось за
диагнозом по 3 человека. Один из них был без заражения и должен пройти карантин. Двое были заражены, т.е.
больны и проходили лечение. К сожалению, в каждый
нечётный день карантина после его десятого дня начала один
из лечившихся умирал.
Выведите на печать количество обратившихся за
диагнозом, количество вылечившихся и количество умерших
людей. Решить на языке Pascal
ответ:program r5gj;
const n=100;
var
a: array [1..n] of integer;
b,c,d,k,i,l: integer;
begin
k:=0;
for i:=1 to n do
a[i]:=i;
for b:=1 to n do
if (a[b] mod 2=0) and (a[b] > 10) then k:=k+1;
writeln(k, ' - кол-во людей, которые пали' );
c:=3;
l:=c*n;
writeln(l,' - кол-во людей, обратившихся за
d:=2*n;
writeln(d,' - кол-во людей, которые находятся на карантине и не умерли' )
end.
Объяснение: