Bài 12: Kiểu xâu

TH
Viết chương trình nhập từ bàn phím xâu a, sau đó tạo xâu b gồm những kí tự có trong xâu a nhưng bỏ đi 2 kí tự a và A.
NT
7 tháng 3 2021 lúc 18:36

uses crt;

var a,b:string;

d,i:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

d:=length(a);

b:=''

for i:=1 to d do 

  if (a[i]<>'a') and (a[i]<>'A') then b:=b+a[i];

writeln(b);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
LN
Xem chi tiết
TT
Xem chi tiết
NN
Xem chi tiết
HN
Xem chi tiết
NN
Xem chi tiết
NN
Xem chi tiết
TT
Xem chi tiết
NV
Xem chi tiết
TP
Xem chi tiết