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
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
By Arya
By Arya
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
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^^
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.