составить программу позволяющую удвоить все буквы а в строке
Answers & Comments
kage1998
Program gt; var a:string; l,i:longint; begin readln(a); l:=length(a); for i:=1 to l do begin write(a[i],a[i]); end; end.
2 votes Thanks 9
SkyBy
Var s,t: string; i: integer; begin writeln ('Введите строку: '); readln (s); t:=''; for i:=1 to length(s) do if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i]; writeln (t); end.
Answers & Comments
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],a[i]);
end;
end.
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
end.