Регистрация
Lizzik657
25.01.2021 05:31
Информатика
Есть ответ 👍

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

120
320
Посмотреть ответы 1

Ответы на вопрос:

Лана1234567891011
Лана1234567891011
4,6(25 оценок)

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

Популярно: Информатика