Guest User

Untitled

a guest
Dec 27th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.77 KB | None | 0 0
  1. Program MyProgram;
  2.  
  3. var
  4. a,b,c,minim,maxim: real;
  5.  
  6. begin
  7. readln(a,b,c);
  8.  
  9. { находим максимальное число из трех }
  10. if a > b then
  11.    maxim := a
  12. else
  13.    maxim := b;
  14. if c > maxim then
  15.    maxim := c;
  16.  
  17. { находим минимальное число из трех }
  18. if a < b then
  19.    minim := a
  20. else
  21.    minim := b;
  22. if c < minim then
  23.    minim := c;
  24.  
  25. { проверяем каждое число, если является средним
  26. (больше максимального и меньше минимального), то выводим это число }
  27. if (a > minim) and (a < maxim) then
  28.    writeln(a:0:2);
  29. if (b > minim) and (b < maxim) then
  30.    writeln(b:0:2);
  31. if (c > minim) and (c < maxim) then
  32.    writeln(c:0:2);
  33. end.
Advertisement
Add Comment
Please, Sign In to add comment