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
2 câu trả lờ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.
var s:ansistring;
i,kq:longint;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(kq);
write(kq);
end.
