Nhập vào một xâu từ bàn phím hay chuyển xâu đó sang chữ in hoa
Program hotrotinhoc; var st,s: string; i,n: integer; begin write('Nhap xau : '); readln(st); writeln('Xau vua nhap la : ',st); s:=st; writeln('Do dai cua xau la : ',length(st)); while st[1]=#32 do delete(st,1,1); while st[length(st)]=#32 do delete(st,length(st),1); while pos(#32#32,st)<>0 do delete(st,pos(#32#32,st),1); writeln('Xau sau khi xoa cac ky tu trang : ',st); s:=upcase(s); writeln('Xau sau khi bien doi thanh xau in hoa : ',s); s:=lowercase(s); write('Xau sau khi bien doi thanh xau in thuong : ',s); readln end.
Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies
Uses Crt; Var St:String; i:Byte; Begin Write(‘Nhap xau St: ‘); Readln(St); For i:=1 to length(St) do St[i]:=Upcase(St[i]); Write(‘Xau ket qua: ‘, St); Readln; End. program bt2;
Viết chương trình nhập vào xâu S sau đó chuyển các kí tự trong xâu thành chữ in hoa Các câu hỏi tương tự
Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.
Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là chữ cái (chữ thường) có trong xâu.
Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là dấu cách có trong xâu.
viết phương trình nhập vào 1 xâu S từ bàn phím và đưa xâu sau khi đổi kí tự đầu sang in hoa Các câu hỏi tương tự
|