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
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
By Rylee
By Rylee
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
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.