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

София1991 София1991    3   06.04.2020 09:01    0

Ответы
aleksseveme aleksseveme  12.10.2020 16:35

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

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика