Pascal. Составьте программу, вставляющую после буквы "К" еще букву "К".
Если не можете написать программу, пожалуйста, просто напишите процедуру, которая позволяет перейти к следующему символу
var s:string; i:integer;
begin
readln(s); i:=1;
repeat if s[ i]='K' then begin insert('K',s,i); inc(i) end; inc(i) until i>length(s);
writeln(s); readln
end.
Букву K использовал тут латинскую.
примени эту программу к себе, везде a [ i ] кроме for i:=1 to length(a) do begin
program strvstavka;
uses crt;
var a,b:string;
i,j,k:integer;
begin
clrscr;
writeln('ввести строку с буквами И');
readln(a); k:=0;
for i:=1 to length(a) do begin
k:=k+1;
b[k]:=a; if a='и' then
for j:=1 to 2 do begin
k:=k+1; b[k]:='и'; end;
end;
writeln('----------');
for j:=1 to k do
write(b[j]);
writeln;
writeln('Конец задачи ');
readln;
end.
⇢