Viết ct nhập hai xâu đưa ra kết quả chữ hoa ra màn hình
2 câu trả lời
var s:string;
i:byte;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do upcase(s[i]);
write('Xau in hoa la: ',s);
readln
end.
Program BTT;
Uses crt;
Var St1,St2: String;
i: longint;
Begin
Clrscr;
Write('Nhap St1: '); Readln(St1);
Write('Nhap St2: '); Readln(St2);
For i:=1 to length(St1) do
If St1[i] in ['A'..'Z'] then Write(St1[i],' ');
Writeln;
For i:=1 to length(St2) do
If St2[i] in ['A'..'Z'] then Write(St2[i],' ');
Readln
End.
Câu hỏi trong lớp
Xem thêm
