ПРОШУ ПОМОЩИ Дано предложение,оканчивающееся символом "_".Вставить заданную букву перед последней буквой "и".
ПРОШУ ПОМОЩИ
Дано предложение,оканчивающееся символом "_".Вставить заданную букву перед последней буквой "и".
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы