Bài 1: Viết lại hàm
Cho hai xâu a và b, lồng xâu a vào xâu b bắt đầu từ vị trí n (không sử dụng hàm insert() )
Bài 1: Viết lại hàm Cho hai xâu a và b, lồng xâu a vào xâu b bắt đầu từ vị trí n (không sử dụng hàm insert() )
By Ximena
By Ximena
Bài 1: Viết lại hàm
Cho hai xâu a và b, lồng xâu a vào xâu b bắt đầu từ vị trí n (không sử dụng hàm insert() )
uses crt;
var a,b,st:string;
i,n:byte;
begin
clrscr;
write(‘Nhap xau a:’);readln(a);
write(‘Nhap xau b:’);readln(b);
write(‘Nhap n=’);readln(n);
for i:=1 to length(b) do
begin
if i=n then st:=st+a;
st:=st+b[i];
end;
write(st);
readln;
end.
Uses crt;
Var A,b,s:string;n:byte;
begin
clrscr;
Readln(a);Readln(b,n);
s:=b;
Delete(b,n,length(b)-n+1); Delete(s,1,n-1);
writeln(b,a,s);
readln;
end.