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

0 bình luận về “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”

1. 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^^

   Bình luận

2. 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.

   Bình luận