Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự

Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự

Đề bài: Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự không phải là dấu cách

Lời giải:

program khong_phai_cach;

uses crt;

var s:string;

      i,d:byte;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

              if s[i]<>' ' then d:=d+1;

       write('Co ',d,' ki tu khong phai dau cach');

       readln;

end.