Viết chương trình nhập vào xâu S gồm các kí tự thường và hoa. Đưa ra màn hình xâu S sau khi chuyển các ký tự sang in hoa

Question

quynhnhu · Answer

program in_hoa;

uses crt;

var s: string;

i: byte;

Begin

clrscr;

write(‘Nhap xau: ‘); readln(s);

for i:=1 to length(s) do s(i):=upcase(s[i]);

write(‘Xau in: ‘,s);

readln

End.

tuyetanhthu · Answer

uses crt; var s:string; begin clrscr;    readln(s);    write(upcase(s)); readln end.

0 bình luận về “Viết chương trình nhập vào xâu S gồm các kí tự thường và hoa. Đưa ra màn hình xâu S sau khi chuyển các ký tự sang in hoa”