Nhập vào xâu không quá 50 kí tự viết chương trình tính và in ra màn hình số lượng ký tự có trong xâu. Giúp mình với:((

0 bình luận về “Nhập vào xâu không quá 50 kí tự viết chương trình tính và in ra màn hình số lượng ký tự có trong xâu. Giúp mình với:((”

1. uses crt;
   var s: string;
       i,dem: byte;
   begin
          clrscr;
         
          write(‘Nhap xau S: ‘);readln(s);
         
          for i:=1 to length(s) do
            
             If s[i] <> ‘ ‘ then dem:=dem+1;
         
          write(‘Xau S co ‘,dem,‘ ki tu’);
         
     readln;
   end.

   Bình luận

2. Gaumatyuki – Bắp

   # No copy

   

   Bình luận