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
Lời giả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.