Вот программа: var s,s1:string; i:integer; begin writeln('Введите строку:'); readln(s); s1:=''; for i:=1 to length(s) do if s[i]='а' then s1:=s1+s[i]+' ' else s1:=s1+s[i]; writeln(s1); end. Здесь буква "а" - русская
2 votes Thanks 0
APALoff
Function InsSpace(S : String) : String; Begin If Length(S)>0 then If S[1]='а' then InsSpace:=S[1]+' '+InsSpace(Copy(S,2,Length(S)-1)) else InsSpace:=S[1]+InsSpace(Copy(S,2,Length(S)-1)) else InsSpace:=''; end; Var St : String; Begin Readln(St); Writeln(InsSpace(St)); end.
Answers & Comments
Verified answer
Вот программа:var s,s1:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:='';
for i:=1 to length(s) do
if s[i]='а' then s1:=s1+s[i]+' ' else s1:=s1+s[i];
writeln(s1);
end.
Здесь буква "а" - русская
Begin
If Length(S)>0 then
If S[1]='а' then InsSpace:=S[1]+' '+InsSpace(Copy(S,2,Length(S)-1))
else InsSpace:=S[1]+InsSpace(Copy(S,2,Length(S)-1))
else InsSpace:='';
end;
Var St : String;
Begin
Readln(St);
Writeln(InsSpace(St));
end.