• Здравствуйте,
    помогите с задачей на PascalABC.

    Найти и вывести все шипящие буквы ( без повторений ), которые встретились в самом длинном слове.

Ответы 6

  • Да, спасибо. Только в задании написано в самом длинном слове, а не во всех :(
    • Автор:

      emelytqrx
    • 6 лет назад
    • 0
  • Да, вроде, в самом длинном: находится самое длинное и в нём ищется
  • нет, во всех. Допустим сделать: шашка,хорошоВ слове "хорошо" - 6 букв. Значит должна вывестись только буква "х". А выводит ш,х
    • Автор:

      sherlock
    • 6 лет назад
    • 0
  • так пробел же, не запятая
  • Ну или запятая с пробелом
  • var  a: array [1..4] of char;  s: string;  i: byte := 1;begin  readln(s);  while (i < length(s)) do  begin    if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then      delete(s, i, 1)    else      i += 1;  end;  writeln(s);end.Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
    • Автор:

      alison
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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