Дано уравнение ax+b=0. Найти решение этого уравнения или сообщить, что решения не существует.

Question

Информатика

Македоний

11 февраля, 21:45

Дано уравнение ax+b=0. Найти решение этого уравнения или сообщить, что решения не существует.

+3

Ответы (1)

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

Милий · Answer 1

VAR a, b:integer;

x:real;

begin

writeln (' a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

x:=-b/a;

if a = 0 then writeln ('uravnenie korney ne imeet')

else

writeln ('korni uravneniya=', x) ;

readln;

end.