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() )

0 bình luận về “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() )”

1. 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.

   Bình luận

2. 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.

   Bình luận