Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program task2;
- var
- k,m,c: integer;
- x1, x2, y: real;
- begin
- writeln ('Введите k, m, c');
- readln(k,m,c);
- x1:= sqr(m) - sqr(k) - 4 * m * c;
- writeln('X1 = ', x1);
- if (x1 >= 0) then x2:= sqrt(x1)
- else if (x1 < 0) then x2:= abs(x1);
- writeln('X2 = ',x2);
- if (x1 > x2) then y:= x1 else y:= x2;
- writeln('y = ',y);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement