Выполнить в excel. 1.  создать таблицу первично поступающих пациентов (15 человек) по образцу:

Скорее всего здесь зашифрован двоичный код в кодировке Unicode, где

49 = 1

48 = 0

32 = пробел

Программа для расшифровки на языке PascalABC

program raf105;

var

 i,n1,n2,e: integer;

 s: string;

begin

 i:=1;

 writeln('Введите двузначные числа Unicode через пробел');

 readln(s);

 while i <= length(s) do

 begin

   val(s[i],n1,e);

   val(s[i+1],n2,e);

   write(chr(n1*10+n2));

   i:= i+3;

 end;

end.

Полученный двоичный код

1101000 1110100 1110100 1110000 1110011 111010 101111 101111 1100010 1100101 1110100 1100001 101110 1101011 1100001 1101101 1100001 1111010 1101001 1110100 1111001 101110 1110010 1110101 101111 1100110 1101111 1110010 1110101 1101101 1110011 101111 1110010 1100101 1100111 1101001 1110011 1110100 1100101 1110010 101111 111111 1101001 1101110 1110110 1101001 1110100 1100101 1011111 1100011 1101111 1100100 1100101 1011111 1110010 1100101 1110001 111101 110001 1100011 110111 1100110 110100 110010 1100100 110111 110011 1100110 1100101 110101 110111 1100110 110110 1100001 111000 110110 111000 110000 1100011 110001 1100100 110001 110100 1100011 110110 1100010 1100100 110101 110010 1100110

Program BiFi;
Const n=50;
Var A:array[1..n] of integer;
i,c,l:integer;
Begin
for i:=1 to n do readln(A[i]);
c:=0;
for i:=1 to n do if A[i] mod 2 = 0 then c:=c+1;
writeln(c);
readln;
end.

Program BiFi;
Const n=50;
Var A:array[1..n] of integer;
i,k,l:integer;
Begin
k:=0;
l:=0;
for i:=1 to n do begin readln(a[i]);
                      if A[i]<0 then k:=k+1 
                                  else if A[i]>0 then l:=l+1;
                      end;
if k>l then writeln('больше положительных')
        else if l>k then writeln('больше отрицательных')
                       else writeln('одинаково');
readln;
end.