fork download
copy 
  1. program ideone;
  2.  
  3. uses SysUtils;
  4.  
  5. const Tactical_Stock:Double=1494208;
  6. var pomocniczy_string:String;
  7. begin
  8.     ThousandSeparator:=' ';
  9.     pomocniczy_string:=floattostrf(Tactical_Stock, ffNumber, 7,0);
  10.     WriteLn(pomocniczy_string);
  11. end.
Success #stdin #stdout 0s 432KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 494 208
https://ideone.com/9rDlnv
language:
Pascal (fpc 3.0.4)
created:
9 years 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!