fork download
copy 
  1. program lab2(input,output);
  2. var
  3.   i: Integer;
  4.   x1, x2, a, b, c: Real;
  5.  
  6. begin
  7.   i := 1;
  8.   x1 := 2.6;
  9.   x2 := 2.8;
  10.   a := 3;
  11.   b := 6;
  12.  
  13.   c := (sqr(x1) + sqr(x2) - a) / (x1 + b);
  14.  
  15.   writeln('c = ', c:0:4);
  16. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
c = 1.3488
https://ideone.com/QKIBzJ
language:
Pascal (fpc 3.0.4)
created:
4 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!