Дана строка,сформировать новую строку не включая в неё буквы "а","о","е" заданной строки - Pascal

Дана строка,сформировать новую строку не включая в неё буквы "а","о","е" заданной строки

Листинг программы

s1:='';
for i:=1 to length(s) do
if not(s[i] in ['a','o','e']) then s1:=s1+s[i];

Объяснение кода листинга программы

Переменная s1 инициализируется пустой строкой.
Происходит цикл от 1 до длины строки s.
Для каждого символа в строке s проверяется условие: если символ не равен a, o или e, то он добавляется к переменной s1.
По завершении цикла, в переменной s1 будет содержаться новая строка, сформированная без учета заданных букв.

Оцени полезность:

14 голосов , оценка 4 из 5

Похожие ответы