Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’
Lệnh nào sau đây cho kết quả ‘Nguyen Du’
A. A. copy(s, 12, 10);
B. delete(s, 12, 10);
C. delete(s,13, 9);
D. copy(s, 13, 9);
Những câu hỏi liên quan
Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’
Lệnh nào sau đây cho kết quả ‘Truyen Kieu’
A. copy(s, 12, 10);
B. copy(s, 13, 9);
C. delete(s, 12, 10);
D. delete(s,13, 9);
Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’
Lệnh nào sau đây cho kết quả ‘Truyen Kieu’
A. copy(s, 1, 11);
B. copy(s, 1, 12);
C. delete(s, 1, 11);
D. delete(s,1, 12);
Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’
Lệnh nào sau đây cho kết quả ‘Nguyen Du’
A. copy(s, 1, 11);
B. copy(s, 1, 12);
C. delete(s, 1, 11);
D. delete(s,1, 12);
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’
A. copy(s, 6, 1);
B. delete(s, 5, 7);
C. Cả A, B đều đúng
D. Cả A, B đều sai
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Nguyen’
A. copy(s, 1, 6);
B. delete(s, 7, 5);
C. Cả A, B đều đúng
D. Cả A, B đều sai
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Trai’
A. copy(s, 8, 4);
B. delete(s, 1, 7);
C. Cả A, B đều đúng
D. Cả A, B đều sai
Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Trai’
A. copy(s, 4, 8);
B. delete(s, 7, 1);
C. Cả A, B đều đúng
D. Cả A, B đều sai
Nhập vào từ bàn phím một xâu kí tự S. Viết chương trình thực hiện xóa các kí tự 'a' có trong xâu S. Sau đó hiển thị kết quả xâu S sau khi đã xóa kí tự 'a' ra màn hình
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]='a' then delete(st,i,1);
writeln(st);
readln;
end.
Đúng 0
Bình luận (0)
Kieu's story ...................... by nguyen du a long time a long ago(write)
