Viết chương trình nhập vào gồm kì từ và sổ hiện thì lên màn hình xâu kí tự và độ dài xâu

0 bình luận về “Viết chương trình nhập vào gồm kì từ và sổ hiện thì lên màn hình xâu kí tự và độ dài xâu”

1. uses crt;
   var s,s1:string;
       i,dem:byte;
   begin
      clrscr;
      write(‘Nhap s: ‘); readln(s);
      for i:=1 to length(s) do
      if (‘A'<=s[i]) and (‘z’>=s[i]) then s1:=s1+s[i];
      write(‘Xau ki tu la: ‘,s1);
      writeln;
      dem:=length(s1);
      write(‘Do dai xau la: ‘,dem);
      readln
   end.

   Bình luận