fork download
copy 
  1. program lab2_task7;
  2.  
  3. var
  4.   x1, x2, a, b, c: real;
  5.   z1, z2, z3: real;
  6.  
  7. begin
  8.   x1 := 2.6;
  9.   x2 := 2.8;
  10.   a := 3;
  11.   b := 6;
  12.  
  13.   z1 := sqr(x1);
  14.   z2 := sqr(x2);
  15.   z3 := x1 + b;
  16.  
  17.   c := (z1 + z2 - a) / z3;
  18.  
  19.   writeln('Результат c = ', c:0:4);
  20. end.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Результат c = 1.3488
https://ideone.com/oudTmt
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!