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:((
2 câu trả lời
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.
