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

Question

Анастаска

15 декабря, 06:06

+2

Ответы (1)

Знаете ответ?

Мена · Answer 1

Var a, b, x:real;

begin

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

readln (a, b) ;

x:=-b/a;

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

end.