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

Question

Информатика

Феодота

4 февраля, 19:36

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

+5

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