viết chương trình nhập một xâu bất kì. In ra màn hình xâu chỉ gồm các chữ hoa trong xâu vừa nhận
2 câu trả lời
program chuhoa;
uses crt;
var st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
for i:=1 to length(st) do
if st[i] in ['A'..'Z'] then write(st[i]);
readln;
end.
Program Chuhoa;
Uses crt;
Var i: integer;
s: string;
Begin
clrscr;
Write('Nhap xau ki tu s: '); Readln(s);
For i:=1 to length(s) do
If s[i] in ['a'..'z'] then
s[i]:=upcase(s[i]);
Writeln(s);
End.
Đúng thì vote cho mình nha^^
