Предмет: Информатика, автор: 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.

Аноним: Жуткий этот древний диалект... как в каменном веке побывал (((
Аноним: О.... надо поправить.... в cтаром де нет a.Length
Аноним: Поправил
dim10102806: Спасибо, но снова 8-й тест в проверке не прошел(
Аноним: Значит, чего -то не хватает в условии. Например, что она должна делать, когда в строке или все гласные, или нет ни одной.
Аноним: Я не могу гадать, чего хочет какой-то там сайт. Вашему условию 100% удовлетворяет.
dim10102806: Ясно, спасибо еще раз
Аноним: У меня в решении если все гласные, ничего не выдает. А может надо выдать что все удалено...
Аноним: Но тогда как выдать пустую строку?
Похожие вопросы
Предмет: Русский язык, автор: sophiatey11