Viết ct nhập vào xâu a .In lên màn hình số lượng kí tự trong xâu

0 bình luận về “Viết ct nhập vào xâu a .In lên màn hình số lượng kí tự trong xâu”

1. program soluong;

   uses crt;

   var s:string;

   begin

        clrscr;

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

        write(‘So luong ki tu cua xau la: ‘,length(s));

        readln;

   end.

   Bình luận

2. uses crt;
   var a:string;
   begin
   clrscr;
      write(‘a=’);readln(a);
      writeln(‘So luong ki tu: ‘,length(a));
   readln
   end.

   Bình luận