Advertisement
natashamalasha

blyacheetotakie

Sep 22nd, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. var
  2. a,b,c,max,min,sum : integer;
  3. f1,f2 : text;
  4.  
  5. begin
  6. assign(f1,'input.txt');
  7. assign(f2,'output.txt');
  8.  
  9. reset(f1);
  10. read(f1,a,b,c);
  11. min:=0;
  12. max:=0;
  13.  
  14. sum:=a+b+c;
  15.  
  16. if (sum mod 2) = 0 then
  17. if (a<b) and (a<c) then
  18. begin
  19. min:=a;
  20. rewrite (f2);
  21.  
  22. writeln(f2,min);
  23. close (f2);
  24. close(f1);
  25. end
  26. else
  27. if (b<a) and (b<c) then
  28. begin
  29. min:=b;
  30. rewrite (f2);
  31.  
  32. writeln(f2,min);
  33. close (f2);
  34. close(f1);
  35. end
  36. else
  37.  
  38. begin
  39. min:=c;
  40. rewrite (f2);
  41.  
  42. writeln(f2,min);
  43. close (f2);
  44. close (f1);
  45. end
  46. else
  47. if (a>b) and (a>c) then
  48. begin
  49. max:=a;
  50. rewrite (f2);
  51.  
  52. writeln(f2,max);
  53. close (f2);
  54. close (f1);
  55. end
  56. else
  57. if (b>a) and (b>c) then
  58. begin
  59. max:=b;
  60. rewrite (f2);
  61.  
  62. writeln(f2,max);
  63. close (f2);
  64. close (f1);
  65. end
  66. else
  67. max:=c;
  68. rewrite (f2);
  69.  
  70. writeln(f2,max);
  71. close (f2);
  72. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement