fork download
copy 
  1. Program Lab2A;
  2.  
  3. Var
  4.   x, y, a: real;
  5.  
  6. Begin 
  7.   writeln('Please enter value for X');
  8.   readln(x);
  9.   writeln('Please enter value for Y');
  10.   readln(y);
  11.  
  12.   a := exp(ln(y + exp(ln(x + 1) / 3)) / 4);
  13.  
  14.   writeln('Result is a=', a:0:4);
  15. End.
  16.  
Success #stdin #stdout 0.01s 5272KB
comments ()
stdin
copy 
17.421
10.365
stdout
copy 
Please enter value for X
Please enter value for Y
Result is a=1.8990
https://ideone.com/jSAIOT
language:
Pascal (gpc 20070904)
created:
3 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!