*Dấu cách cũng là một kí tự
program so_luongkitu;
uses crt;
var s:string[50];
begin
clrscr;
write('Nhap xau: '); readln(s);
write('So luong ki tu cua xau la: ',length(s));
readln;
end.
*Không tính dấu cách
program so_luongkitu;
uses crt;
var s:string[50];
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]<>' ' then d:=d+1;
write('So luong ki tu cua xau la: ',d);
readln;
end.
