составить программу Напечатать заданное слово в обратном порядке, удаляя при этом все буквы «е».

Question

Информатика: составить программу Напечатать заданное слово в обратном порядке, удаляя при этом все буквы «е».

mashka0414 · Answer

var

s:string;

i:integer;

begin

readln(s);

for i:=length(s) downto 1 do

if (Ord(s[i]) <> Ord('e')) and (Ord(s[i]) <> Ord('е')) and

(Ord(s[i]) <> Ord('E')) and (Ord(s[i]) <> Ord('Е'))

then write(s[i])

end.