fork download
copy 
  1. Program disintegration;
  2. const chislon=0.000000000000000000000000000000000000000001;
  3. var x, y: real;
  4.     k: integer;
  5. BEGIN
  6. x:=0; k:=0;
  7. while 2+2=4 do
  8.  begin
  9.  k:=k+1;
  10.  if k=1 then x:=-x+chislon else x:=-x;
  11.   repeat {расщепление до числона} 
  12.   y:=x;
  13.   y:=y/666; y:=y*666;
  14.   y:=sqrt(y); y:=sqr(y);
  15.   y:=ln(y); y:=exp(y);
  16.   until y<=chislon;
  17.  if k=2 then k:=0;
  18.  end;
  19. END.
Time limit exceeded #stdin #stdout 5s 340KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/oEzfJO
language:
Pascal (fpc 3.0.4)
created:
7 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!