Bài tập về xâu - Giải bài tập Pascal

1. Nhập vào một xâu, đếm số ký tự của xâu đó.
👍 Ví dụ :
Input : "Pascal"
Out :"6"

Giải :

var s:string;
       i,dem:integer;
begin dem:=0;
       writeln('Nhap xau : ');
       readln(s);
       for i:=1 to length(s) do
             begin
                  dem:=dem+1;
            end;
      writeln('Co ',dem,' ky tu trong xau');
      readln;
end.