K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var s1,s2:string;

begin

clrscr;

readln(s1,s2);

insert(s1,s2,5);

writeln(s2);

readln;

end.

11 tháng 4 2021

Câu 2: Hãy chọn phương án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện:

A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt 

B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt

C. Nối xâu S2 vào S1

D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt

 

Cây 2: A

11 tháng 4 2021

Câu 14. -NB Hãy chọn phương án ĐÚNG khi thực hiện thủ tục chuẩn Insert(S1,S2,vt) ?

A. Chèn xâu S1 vào S2 bắt đầu từ vị trí vt

B. Chèn xâu S2 vào S1 bắt đầu từ vị trí vt

C. Nối xâu S2 vào S1

D. Sao chép vào cuối S1 một phần của S2 từ vị trí vt

 

Câu 15- NB Cho xâu S= 'Thu do Ha Noi', khi thực hiện thủ tục Delete(S,1,6) kết quả là gì?

A. 'THa Noi'    

B. ' Ha Noi'    

C. 'Thu do'    

D. 'Ha Noi'

11 tháng 4 2021

a

b

uses crt;

var s1,s2:string;

i,j,d1,d2:integer;

begin

clrscr;

readln(s1,s2);

d1:=length(s1);

d2:=length(s2);

for i:=1 to d1 do 

  if not(s1[i] in ['0'..'9']) then delete(s1,i,1);

for i:=1 to d2 do 

  if not(s2[i] in ['0'..'9']) then delete(s2,i,1);

writeln(s1);

writeln(s2);

writeln(s1+s2);

readln;

end.

uses crt;

var s,s1,s2:string;

i,d:integer;

begin

clrscr;

readln(s);

s1:='';

s2:='';

d:=length(s);

for i:=1 to d do

  begin

if s[i] in ['0'..'9'] then s1:=s1+s[i];

if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];

end;

writeln('Xau chua cac ki tu so la: ',s1);

writeln('Xau chua cac ki tu chu la: ',s2);

readln;

end.