Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program zadaha;
- var
- txt : text;
- d, a, b, c : real;
- begin
- assign(txt, 'kvur.txt');
- reset(txt);
- readln(txt, a, b, c);
- d := b*b-4*a*c;
- assign(txt, 'korni.txt');
- rewrite(txt);
- write(txt, (-b-sqrt(d))/(2*a), ' ', (-b+sqrt(d))/(2*a));
- txt.Close;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement