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>
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.
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.