ПРОШУ ПОМОЩИ Дано предложение,оканчивающееся символом "_".Вставить заданную букву перед...

Question

ПРОШУ ПОМОЩИ
Дано предложение,оканчивающееся символом "_".Вставить заданную букву перед последней буквой "и".

Answer 1

Var S:string;
c:char;
i,k,N:integer;
begin
Readln(S);
Readln(c);
N:=length(S);
For i:=N downto 1 do
If S[i]:='и' then
begin
k:=i;
break;
end;
For i:=N+1 to downto k do
S[i]:=S[i-1];
S[k]:=c;
Writeln(S);
end.