Задать вопрос Регистрация
Помочь другим

  • 1)Заменить в данной строке все малые буквы латинского алфавита одноименными большими.
    2)Подсчитать наибольшее количество идущих подряд пробелов в данной строке.

    3)Известно, что в исходной строке есть двоеточие. Получить все символы, расположенные до первого двоеточия включительно.
    4)Известно, что в исходной строке есть двоеточие. Получить все символы расположенные между первым и вторым двоеточием. Если второго двоеточия нет, то получить все символы, расположенные после единственного имеющегося двоеточия.

Ответы 3

  • 2 может как-то легче можно решить, но все равно работает.

    • Автор:

      micheal
    • 6 лет назад
    • 0
  • Это может быть из-за того, что нет ":" , тогда он зациклиться
  • 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.

    • Автор:

      rexyku4i
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years