Напишите функцию, которая по двум числам - коэффициентам A и B уравнения Ax+B=0 находит корень этого уравнения (при условии, что A не равно 0).
function solve(a,b:integer):real;Обратите внимание, что результат функции - вещественное число.
Пользуясь этой функцией, напишите программу, которая по двум целым числам A и B (A и B - целые, по модулю не превышающие 1000, A не равно 0) возвращает корень указанного уравнения.
| Пример ввода | Пример вывода | Примечание |
2 1 |
-0.5 |
Ответ можно выводить в формате -5.00000E-0001 (E-0001 обозначает, что десятичную точку в выведенном числе нужно сдвинуть на одну позицию влево) |