fork download
copy 
  1.     program Project1;
  2.  
  3.     {$APPTYPE CONSOLE}
  4.  
  5.     uses
  6.     SysUtils,
  7.     Math;
  8.  
  9.     var
  10.     a, b, c, d, x, y, z: Real;
  11.     V: Real;
  12.  
  13.     begin
  14.     Write('a=');
  15.     Readln(a);
  16.     Write('b=');
  17.     Readln(b);
  18.     Write('c=');
  19.     Readln(c);
  20.     Write('d=');
  21.     Readln(d);
  22.     Write('x=');
  23.     Readln(x);
  24.     Write('y=');
  25.     Readln(y);
  26.     Write('z=');
  27.     Readln(z);
  28.  
  29.     if (sqr(c) <= sqr(x) + sqr(y) + sqr(z)) and
  30.     (sqr(x) + sqr(y) + sqr(z) <= sqr(d))
  31.     then
  32.     begin
  33.     V := a / max(x, max(y, z));
  34.     Writeln('Перше обчислення');
  35.     end;
  36.  
  37.     if sqr(x) + sqr(y) + sqr(z) <= sqr(c) then
  38.     begin
  39.     V := b / min(x, min(y, z));
  40.     Writeln('Друге обчислення');
  41.     end
  42.     else
  43.     begin
  44.     V := (a + b) / 2;
  45.     Writeln('Третє обчислення');
  46.     end;
  47.  
  48.     Write(V);
  49.     Readln;
  50.     end.
Success #stdin #stdout 0s 400KB
comments (?)
stdin
copy 
1
2
1
100
2
3
4
stdout
copy 
a=b=c=d=x=y=z=Перше обчислення
Третє обчислення
 1.50000000000000E+000
https://ideone.com/4XdyxP
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

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!