fork download
copy 
  1. Program Lab2A (Input, Output);
  2. Const
  3.     x=3.981;
  4.     z=0.512;
  5.     e=2.71828;
  6. Var
  7.   b:real;
  8. begin
  9. 	b:=sqrt(exp(x-1)/sin(z));
  10. 	writeln('Result is b=',b);
  11. end.
Success #stdin #stdout 0.01s 5264KB
comments (?)
stdin
copy 
0,1
stdout
copy 
Result is b= 6.3423844166629246E+000
https://ideone.com/Ka9Xos
language:
Pascal (fpc 3.0.4)
created:
7 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!