fork download
copy 
  1. program Project2;
  2.  
  3. uses
  4.   SysUtils,
  5.   Math;
  6. var
  7.   a, b, c, d, x, y, z : Real;
  8.   v : Real;
  9. begin
  10.   { TODO -oUser -cConsole Main : Insert code here }
  11.   Write('a='); Readln(a);
  12.   Write('b='); Readln(b);
  13.   Write('c='); Readln(c);
  14.   Write('d='); Readln(d);
  15.   Write('x='); Readln(x);
  16.   Write('y='); Readln(y);
  17.   Write('z='); Readln(z);
  18. begin
  19.   if ((sqr(c) <= (sqr(x) + sqr(y) + sqr(z))) and
  20.      ((sqr(x) + sqr(y) + sqr(z)) <= sqr(d)) ) then begin
  21.       V := (a / (max(x , max(y,z))));
  22.       writeln('Основна гілка першого if');
  23.   end else begin
  24.     writeln('Побічна гілка першого if');
  25.   end;
  26.  
  27.    end;
  28.     begin
  29.       if ((sqr(x) + sqr(y) + sqr(z)) <= sqr(c) ) then
  30.           V := (b / (min(x , min(y,z))))
  31.       else
  32.           V := (a + b)/2;
  33.     end;
  34.     Write(V);
  35.     Readln;
  36. end.
Success #stdin #stdout 0s 400KB
comments (?)
stdin
copy 
1
2
3
40
5
6
7
stdout
copy 
a=b=c=d=x=y=z=Основна гілка першого if
 1.50000000000000E+000
https://ideone.com/Vis4oe
language:
Pascal (fpc 3.0.4)
created:
10 years 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!