С клавиатуры вводится текст из строчных латинских букв. Ввод прекращается при нажатии клавиши Enter. Напечатать эту строку, предварительно преобразовав ее следующим образом: 1) заменить на ks первое вхождение x, если такое есть...
С клавиатуры вводится текст из строчных латинских букв. Ввод прекращается при нажатии клавиши Enter. Напечатать эту строку, предварительно преобразовав ее следующим образом:
1) заменить на ks первое вхождение x, если такое есть;
2) вычислить процентное содержание гласных букв в строке.
Примечание: Все операции над строками выполняются отдельными функциями в том порядке, в котором они описаны в задании.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
k,i:integer;
se:set of char;
begin
se:=['A','E','I','O','U','a','e','i','o','u'];
readln(s);
k:=pos('x',s);
if k<>0 then
begin
delete(s,k,1);
insert('ks',s,k);
end;
writeln(s);
k:=0;
for i:=1 to length(s) do
if s[i] in se then inc(k);
write('Percent=',k/(length(s)/100));
end.
Пример ввода:
I3artle, Caster, exported from the Throne of Heroes.
Пример вывода:
I3artle, Caster, eksported from the Throne of Heroes.
Percent=30.188679245283
Не нашли ответ?
Похожие вопросы