Question

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

Answer 1

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.