Предмет: Информатика,
автор: dim10102806
Pascal ABC Дана строка, состоящая из маленьких английских букв и цифр. Удалить гласные буквы в конце строки от последней не гласной буквы или цифры (конечные гласные буквы). Вывести преобразованную строку и количество удаленных символов
Ответы
Автор ответа:
1
const
gl='aeiouy';
var
s:string;
i,l,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
l:=Length(s);
for i:=l downto 1 do
if pos(s[i],gl)=0 then begin
p:=i+1; n:=l-p+1;
Delete(s,p,n);
Writeln(s); Writeln('Удалено символов: ',n);
break
end
end.
gl='aeiouy';
var
s:string;
i,l,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
l:=Length(s);
for i:=l downto 1 do
if pos(s[i],gl)=0 then begin
p:=i+1; n:=l-p+1;
Delete(s,p,n);
Writeln(s); Writeln('Удалено символов: ',n);
break
end
end.
Аноним:
Жуткий этот древний диалект... как в каменном веке побывал (((
Похожие вопросы
Предмет: Информатика,
автор: kamilvat54
Предмет: Литература,
автор: egorefremov207
Предмет: Русский язык,
автор: sophiatey11
Предмет: Математика,
автор: chiller194245
Предмет: Математика,
автор: Евгений963