Question

С клавиатуры вводится текст из строчных латинских букв. Ввод прекращается при нажатии клавиши Enter. Напечатать эту строку, предварительно преобразовав ее следующим образом: 1) заменить на ks первое вхождение x, если такое есть; 2) вычислить процентное содержание гласных букв в строке. Примечание: Все операции над строками выполняются отдельными функциями в том порядке, в котором они описаны в задании.

Answer 1

//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