Question

Viết chương trình nhập vào một xâu, tính và in ra số kí tự, số từ trong một xâu

Answer 1

uses crt;

var i,d,dem:integer;

st:string;

begin

clrscr;

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

d:=length(st);

writeln('So ki tu trong xau ',st,' la: ',d);

dem:=0;

for i:=1 to n do

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

writeln('So tu trong mot xau la: ',dem+1);

readln;

end.