Написать программу на языке Pascal для решения уравнения kx+b=0

Question

Информатика

Доброй

15 декабря, 20:12

Написать программу на языке Pascal для решения уравнения kx+b=0

+3

Ответы (1)

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

Бейн · Answer 1

var

k, b, x: real;

begin

writeln ('Введите k, b:') ;

readln (k, b) ;

writeln (k, 'x+', b, '=0') ;

writeln (k, 'x=-', b) ;

writeln ('x=-', b, '/', k) ;

x : = (b-b-b) / k;

writeln ('x=', x) ;

end.