Question

viết phương trình nhập vào xâu s1 có m kí tự, sâu s2 có n kí tự. chèn xâu s1 vào xâu s2 ở vị trí n – 5

Answer 1

uses crt;

var s1,s2:string;

begin

clrscr;

readln(s1,s2);

insert(s1,s2,5);

writeln(s2);

readln;

end.