profile
Опубликовано 5 лет назад по предмету Информатика от dim10102806

Pascal ABC Дана строка, состоящая из маленьких английских букв и цифр. Удалить гласные буквы в конце строки от последней не гласной буквы или цифры (конечные гласные буквы). Вывести преобразованную строку и количество удаленных символов

  1. Ответ
    Ответ дан Аккаунт удален
    const
      gl='aeiouy';
     
    var
      s:string;
      i,l,n,p:integer;
     
    begin
      Write('Введите строку: '); Readln(s);
      l:=Length(s);
      for i:=l downto 1 do
        if pos(s[i],gl)=0 then begin
          p:=i+1; n:=l-p+1;
          Delete(s,p,n);
          Writeln(s); Writeln('Удалено символов: ',n);
          break
          end
    end.
    1. Ответ
      Ответ дан Аккаунт удален
      Значит, чего -то не хватает в условии. Например, что она должна делать, когда в строке или все гласные, или нет ни одной.
    2. Ответ
      Ответ дан Аккаунт удален
      Я не могу гадать, чего хочет какой-то там сайт. Вашему условию 100% удовлетворяет.
    3. Ответ
      Ответ дан dim10102806
      Ясно, спасибо еще раз
    4. Ответ
      Ответ дан Аккаунт удален
      У меня в решении если все гласные, ничего не выдает. А может надо выдать что все удалено...
    5. Ответ
      Ответ дан Аккаунт удален
      Но тогда как выдать пустую строку?
Самые новые вопросы