Viết ct nhập vào 1 sâu kí tự và đưa ra các kí tự hoa trong sâu đó Mn giúp em với ạ Em cảm ơn

0 bình luận về “Viết ct nhập vào 1 sâu kí tự và đưa ra các kí tự hoa trong sâu đó Mn giúp em với ạ Em cảm ơn”

1. uses crt;

   var s: string;

   i: byte;

   begin

   clrscr;

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

   write (‘cac ki tu hoa trong xau: ‘);

   for i:=1 to length(s) do

   if s[i] in [‘A’..’Z’] then write (s[i],’  ‘);

   readln;

   end.

   Bình luận

2. program phuongt;
   uses crt;
     var s: string;
           i: integer;
   begin
          clrscr;
          write(‘Nhap xau s = ‘); readln(s);
          for i:=1 to length(s) do if s[i] in [‘A’..’Z’] then write(s[i]:3);
          readln
   end.

   Bình luận