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

Question

Информатика

Гаша

9 сентября, 19:56

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

+2

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