Решить уравнение Ах+В=0, если это возможно. Решить на языке Pascal, развервляющийся алгоритм. решить надо до 11:00 по МСК, после не принимаю

Question

Информатика

Нонуся

23 декабря, 22:30

Решить уравнение Ах+В=0, если это возможно. Решить на языке Pascal, развервляющийся алгоритм. решить надо до 11:00 по МСК, после не принимаю

+3

Ответы (1)

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

Евдоня · Answer 1

uses crt;

var a, b:integer;

x:real;

begin

read (a, b) ;

if (a=0) or (b=0) then begin write ('Error') ; exit; end else x:=-b/a;

write ('Otvet: ', x) ;

end.