1)заменить в данной строке все малые буквы латинского алфавита одноименными большими. 2)подсчитать наибольшее количество идущих подряд пробелов в данной строке. 3)известно, что в исходной строке есть двоеточие. получить все символы, расположенные до первого двоеточия включительно. 4)известно, что в исходной строке есть двоеточие. получить все символы расположенные между первым и вторым двоеточием. если второго двоеточия нет, то получить все символы, расположенные после единственного имеющегося двоеточия.

1) var a, b, c, i, n, j : integer;       s : string; begin     read (s);     for i: =1 to length(s) do     begin       if (ord (s[i])> =97) and (ord (s[i])< =122) then write (char(ord (s[i])-32))       else write (s[i]);     end; end.2)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     if s[1]=' ' then    begin      j: =j+1;       p[j]: =1;     end;     for i: =2 to length(s) do      if (s[i]=' ') and (s[i-1]< > ' ') then          begin              j: =j+1;             p[j]: =i;           end;     for i: =1 to j do    begin      a: =p[i];       p[i]: =0;       while s[a]=' ' do      begin          inc (p[i]);           a: =a+1;       end;     end;     b: =p[1];     for i: =1 to j do      if p[i]> b then b: =p[i];     write (b); end.3)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     i: =1;     write (s[i]);     while s[i]< > ': ' do      begin      inc (i);       write (s[i]);       end; end.4)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     i: =1;     while s[i]< > ': ' do      inc (i);     i: =i+1;     while (s[i]< > ': ') and (i< =length(s)) do      begin      write (s[i]);       inc (i);       end; end.

Для записи результата одного из 396 спортсменов требуется log(2)396  ≈ 9 бит. искомый объем памяти = 256*9 бит = 256*9/8 байт = 288 байт.