Удалить слова оканчивающие на букву "Е" - Pascal ABC

Формулировка задачи:

В введенной с клавиатуры строке удалить все слова, оканчивающие на букву "Е"

Если вдруг кому понадобится

Var е,s1,s2:string; 
Begin 
write('Введите строку: ');readln(е); 
е:=' '+е;s2:=''; 
While Pos(' ',е)<>0 do 
Begin 
s1:=Copy(е,1,Pos(' ',е)); 
Delete(е,1,Pos(' ',е)); 
if s1[1]<>'s' then s2:=s2+s1; 
End; 
writeln('Полученная строка: ',s2); 
readln; 
End.

Решение задачи: «Удалить слова оканчивающие на букву "Е"»

textual
                            Листинг программы 
                        
                            if s1[length(s1)]<>'e' then s2:=s2+s1;

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

13 голосов , оценка 4.385 из 5

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