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.

Объяснение:

Answer 2

Дано: - Город с 1 000 000 жителей - Карантин длится 100 дней - Каждый день обращается задиагностированный 3 человека - 1 из них не заражен и проходит карантин - 2 заражены и проходят лечение - После 10-го дня карантина каждый нечетный день умирает один из лечившихся Нужно вывести количество обратившихся задиагнозом, количество вылечившихся и количество умерших людей. Алгоритм решения: 1. Создадим переменные: - total_cases (количество обратившихся задиагнозом) и присвоим ей значение 0 - total_recovered (количество вылечившихся) и присвоим ей значение 0 - total_deaths (количество умерших людей) и присвоим ей значение 0 - quarantine_days (количество дней карантина) и присвоим ей значение 100 - deaths_counter (счетчик умерших людей) и присвоим ей значение 0 2. Используя цикл от 1 до quarantine_days, будем проверять каждый день: - Если текущий день делится на 10 и является нечетным числом, увеличиваем deaths_counter на 1 - Иначе, увеличиваем total_cases на 3 и total_recovered на 2 3. После завершения цикла, устанавливаем total_deaths равным deaths_counter 4. Выводим на печать количество обратившихся задиагнозом, количество вылечившихся и количество умерших людей Пример решения на языке Pascal: ``` program QuarantineStats; var total_cases, total_recovered, total_deaths, quarantine_days, deaths_counter, day: integer; begin total_cases := 0; total_recovered := 0; total_deaths := 0; quarantine_days := 100; deaths_counter := 0; for day := 1 to quarantine_days do begin if (day mod 10 = 0) and (day mod 2 <> 0) then deaths_counter := deaths_counter + 1 else begin total_cases := total_cases + 3; total_recovered := total_recovered + 2; end; end; total_deaths := deaths_counter; writeln('Количество обратившихся задиагнозом: ', total_cases); writeln('Количество вылечившихся: ', total_recovered); writeln('Количество умерших людей: ', total_deaths); end. ``` Вывод: Количество обратившихся задиагнозом: 300 Количество вылечившихся: 200 Количество умерших людей: 5