fork download
copy 
  1. program Zanyattya17_Konstanty;
  2.  
  3. uses Math;
  4.  
  5. var
  6.   a, b, c, d: integer;
  7.   cReal: real;
  8.   x, y: real;
  9.   resultBool: boolean;
  10.  
  11. begin
  12.   writeln('--- Завдання 1 ---');
  13.   a := 5;
  14.   b := 8;
  15.   c := 10;
  16.   d := 3;
  17.  
  18.   resultBool := not((a < b) and (c > d));
  19.   writeln('Результат виразу not((a<b) and (c>d)) = ', resultBool);
  20.   writeln;
  21.  
  22.   writeln('--- Завдання 2 ---');
  23.   cReal := 0.5;  // константа для другого завдання
  24.  
  25.   x := cos(cReal);
  26.   y := arccos(x) - 1 / tan(6 * x);
  27.  
  28.   writeln('c = ', cReal:4:2);
  29.   writeln('x = ', x:8:4);
  30.   writeln('y = ', y:10:4);
  31.  
  32.   writeln;
  33.   writeln('--- Програму завершено ---');
  34. end.
  35.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
--- Завдання 1 ---
Результат виразу not((a<b) and (c>d)) = FALSE

--- Завдання 2 ---
c = 0.50
x =   0.8776
y =     1.1174

--- Програму завершено ---
https://ideone.com/6uyhQL
language:
Pascal (fpc 3.0.4)
created:
1 day 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!