Question

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

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

Answer 1

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.

Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку

Answer 2

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

Answer 3

так пробел же, не запятая

Answer 4

Ну или запятая с пробелом