fork download
copy 
  1. program Task1;
  2. uses Math;
  3. var
  4.   x, y: Real;
  5. begin
  6.   // якщо користувач не вводить нічого — x = 1
  7.   if not Eof then
  8.     Readln(x)
  9.   else
  10.     x := 1;
  11.  
  12.   y := (Sin(4 * x * x) / Tan(x)) / Cos(3 * x);
  13.   Writeln('x = ', x:0:2);
  14.   Writeln('y = ', y:0:5);
  15. end.
  16.  
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
x = 1.00
y = 0.49085
https://ideone.com/Th8yhK
language:
Pascal (fpc 3.0.4)
created:
4 hours 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!