fork download
copy 
  1. program ideone;
  2. var s,p:string;
  3. 	u,k:integer;
  4. 	i:byte;
  5. begin
  6. 	s:='tursun udriin mend hurgey';
  7. 	k:=length(s);
  8. 	u:=1;
  9. 	for i:=1 to k do;
  10. 	if s[i]=' ' then u:=u+1;
  11. 	writeln(u)
  12. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
https://ideone.com/yoxdFk
language:
Pascal (fpc 3.0.4)
created:
31 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!