fork download
copy 
  1. var a,b,c: real;
  2. begin
  3. a:=0.29;
  4. b:=0.20;
  5. c:=a-b;
  6. if c=0.09 then writeln('Ok') else writeln('Error');
  7. writeln(c);
  8. end.
Success #stdin #stdout 0.01s 252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Error
 8.999999999999997E-002
https://ideone.com/Uvkih
language:
Pascal (fpc 3.0.4)
created:
14 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!