viết chương trình nhập từ bàn phím một xâu bất kì có độ dài không quá 50 kí tự. hãy in các kí tự trong câu là chữ thường (a,b,c…)

0 bình luận về “viết chương trình nhập từ bàn phím một xâu bất kì có độ dài không quá 50 kí tự. hãy in các kí tự trong câu là chữ thường (a,b,c…)”

1. uses crt;
   var i:longint; s:string[50];
   begin
   clrscr;
      write(‘s=’);readln(s);
      for i:=1 to length(s) do if s[i] in [‘a’..’z’] then write(s[i]);
   readln
   end.

   Bình luận