Задать вопрос
14 октября, 02:53

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

+5
Ответы (1)
  1. 14 октября, 03:53
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Pascal ABC Дана строка, состоящая из маленьких английских букв и цифр. Удалить гласные буквы в конце строки от последней не гласной буквы ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы