Advertisement
Guest User

Untitled

a guest
Feb 18th, 2020
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. program task2;
  2. var
  3. k,m,c: integer;
  4. x1, x2, y: real;
  5.  
  6. begin
  7.  
  8. writeln ('Введите k, m, c');
  9. readln(k,m,c);
  10.  
  11. x1:= sqr(m) - sqr(k) - 4 * m * c;
  12. writeln('X1 = ', x1);
  13.  
  14. if (x1 >= 0) then x2:= sqrt(x1)
  15. else if (x1 < 0) then x2:= abs(x1);
  16. writeln('X2 = ',x2);
  17.  
  18. if (x1 > x2) then y:= x1 else y:= x2;
  19. writeln('y = ',y);
  20.  
  21. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement