Написать программу решения линейного алгебраического уравнения с произвольными параметрами: A*X+B=0.

Question

Михайла

11 марта, 20:15

+3

Ответы (1)

Знаете ответ на вопрос?

Христоша · Answer 1

Var a, b, x:real;

begin

write ('Введите коэффициенты а и b: ') ;

readln (a, b) ;

x:=-b/a;

writeln ('Ответ: x=', x) ;

end.