составить программу Напечатать заданное слово в обратном порядке, удаляя при этом все буквы «е».
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Каждый символ алфавита записывается с 4 цифр
Автор: stark11
Каким процессом можно считать измерение высоты комнаты?
Автор: innavinogradova1385
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.