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

Question

Информатика

Атлу

28 сентября, 04:57

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

+1

Ответы (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.