помогите составить программу
Напечатать заданное слово в обратном порядке, удаляя при этом все буквы «е».
Напечатать заданное слово в обратном порядке, удаляя при этом все буквы «е».
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.