В городе с 1 000 000 жителей объявили карантин ** 100 дней. Статистика показала, что...

Question

В городе с 1 000 000 жителей объявили карантин на 100 дней. Статистика показала, что каждый день обращалось задиагнозом по 3 человека. Один из них был без заражения ипросто должен пройти карантин. Двое были заражены, т.е.больны и проходили лечение. К сожалению, в каждыйнечётный день карантина после его десятого дня начала одиниз лечившихся умирал.Выведите на печать количество обратившихся задиагнозом, количество вылечившихся и количество умершихлюдей. Решить на языке Pascal​

Answer 1

Ответ: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.

Объяснение:

Comments

вот вывод: 45 - кол-во людей, которые пали
300 - кол-во людей, обратившихся за помощью
200 - кол-во людей, которые находятся на карантине и не умерли