Bài 1> Viết chương trình nhập vào xâu a có độ dài không quá 100 ký tự. Hãy đưa xâu a ra màn hình toàn chữ in hoa? Bài 2> Viết chương trình nhập vào xâu a gồm vừa chữ cái vừa số. Hãy tạo ra xâu b bằng cách lấy các chữ số trong xâu a. Đưa xâu b ra màn hình>

1.

var s:string;

begin

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

write('Xau in hoa la: ',upcase(a));

readln

end.

2. 

var a,b:string;

      i:byte;

begin

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

for i:=1 to length(a) do

if a[i] in ['0'..'9'] then b:=b+a[i];

write('Xau b la : ',b);

readln 

end.

Bài 1:

Program FNG;
Uses crt;
Var A: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap A: '); Readln(A);
        For i:=1 to length(A) do
                A[i]:=Upcase(A[i]);
        Write(A);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var A,B: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap A: '); Readln(A);
        B:='';
        For i:=1 to length(A) do
                If A[i] in ['0'..'9'] then B:=B+A[i];
        Write(B);
        Readln
End.