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

Question

Информатика

Руся

25 июля, 05:35

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

+5

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