Viết ct nhập hai xâu đưa ra kết quả chữ hoa ra màn hình

0 bình luận về “Viết ct nhập hai xâu đưa ra kết quả chữ hoa ra màn hình”

1. var s:string;

       i:byte;

   begin

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

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

   write(‘Xau in hoa la: ‘,s);

   readln

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var St1,St2: String;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap St1: ‘); Readln(St1);
           Write(‘Nhap St2: ‘); Readln(St2);

           For i:=1 to length(St1) do
                   If St1[i] in [‘A’..’Z’] then Write(St1[i],’ ‘);
           Writeln;
           For i:=1 to length(St2) do
                   If St2[i] in [‘A’..’Z’] then Write(St2[i],’ ‘);
           Readln
   End.

   Bình luận