fork download
copy 
  1. program Lab2;
  2.  
  3. uses
  4.   math;
  5.  
  6. var
  7.   x, y, a: Real;
  8.   CONSTANT: Real;
  9.  
  10. begin
  11.   // Задані значення змінних та констант
  12.   x := 16.55;
  13.   y := -2.75;
  14.   CONSTANT := sqrt(10);
  15.  
  16.   // Обчислення виразу
  17.   a := CONSTANT * (power(3, sqrt(x)) + power(x, (y + 2)));
  18.  
  19.   // Виведення результату
  20.   writeln('Результат обчислення виразу a = ', a);
  21. end.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Результат обчислення виразу a =  2.7644950487519185E+002
https://ideone.com/5GvmJg
language:
Pascal (fpc 3.0.4)
created:
17 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!