program bai_giai; var f,g:text; s:string; i,d:integer; begin Assign(f,'tong_ad.txt'); reset(f); Assign(g,'tong_cl.txt'); rewrite(g); readln(f,s); d:=0; for i:=1 to length(s) do if s[i]<>' ' then d:=d+1; write(g,d); close(f); close(g); end.
uses crt; var f:text; i:longint; s:string; begin clrscr; assign(f,'tong-ad.txt');reset(f); readln(f,s); close(f); assign(f,'output.txt');rewrite(f); for i:=1 to length(s) do while s[i]=' ' do delete(s,i,1); writeln(f,length(s)); close(f); end.