cho 1 xâu A được nhập từ bàn phím viết chương trình tạo một xâu mới theo thứ tự là dãy các chữ của xâu A
2 câu trả lời
uses crt;
var A,A1:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(A);
for i:=1 to length(A) do
if ('A'<=A[i]) and ('z'>=A[i]) then A1:=A1+A[i];
write('Xau ki tu la: ',A1);
readln
end.
uses crt;
var A, S : string; i : byte;
begin
clrscr;
write('Nhap xau A : '); readln(A);
i := 1; S := '';
while i <= length(A) do
begin if A[i] in ['A' ..'z'] then S := S + A[i];
i := i + 1; end;
write('Xau moi : ', S);
readln
end.
Câu hỏi trong lớp
Xem thêm
