BÀI 5: Viết chương trình nhập 1 xâu từ bàn phím. Đưa ra màn hình xâu đó dưới dạng in hoa.
2 câu trả lời
Program bt;
Uses crt;
Var s,st:string;
Begin
Write('nhap xau s: '); readln(s);
St:=upcase(s);
Write(st);
Readln;
End.
uses crt; {nếu muốn thì bạn có thể viết program ở phía tên}
var s,str:string;
begin
clrscr;
write('nhap xau s');
readln(s);
str:=upcase(s);
write('xau luc sau la:',str);
readln;
end.
Câu hỏi trong lớp
Xem thêm
