Nhập vào 1 xâu .Đưa ra màn hình xâu là chữ in hoa
2 câu trả lời
uses crt;
var s,ih: string;
i: byte;
begin
clrscr;
write ('nhap xau: '); readln (s);
for i:=1 to length(s) do
if upcase(s[i])=s[i] then ih:=ih+s[i];
writeln ('xau la ki tu in hoa co trong xau vua nhap la: ');
for i:=1 to length(ih) do write (ih[i]);
readln;
end.
xin hay nhất !!!
var s: string;
i: byte;
Begin
Write('nhap xau: '); readln(s);
For i:=1 to length(s) do
s[i]:=upcase(s[i]);
Write(s);
Readln
End.
