Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [pascal] строки

Автор: Dimon5 28.4.2008, 19:38

Всем доброго времени суток.
Помогите пожалуйста с написанием програмки.

В строке удалить все буквы u, перед которыми находится буква q.

Автор: THandle 28.4.2008, 21:27

Код


program Project1;

procedure DeleteUQ(var s : string);
var
  i : integer;
begin
  for i := length(s) downto 2 do
    if s[i] = 'u' then
      if s[i - 1] = 'q' then
        delete(s, i, 1);
end;

var
  s : string;
begin
  readln(s);
  if s <> '' then
    begin
      DeleteUQ(s);
      Writeln(s);
    end;
  readln;
end.