Question

Viết phương trình tạo một xâu a. Đếm có bao nhiêu kí tự có trong xâu b. Đếm có bao nhiêu dấu cách có trong xâu Giúp mình với ạ, mình cảm ơn nhiều

Answer 1

tham khảo

 

uses crt;

var a:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

dem:=0;

d:=length(a);

for i:=1 to d do

if a[i]=' ' then inc(dem);

writeln(dem);

readln;

end.