Решить уравнение Ах+В=0 , если это возможно. Решить на языке Pascal, развервляющийся алгоритм. решить надо до 11:00 по МСК, после не принимаю
uses crt;var a,b:integer;x:real;beginread(a,b);if (a=0) or (b=0) then begin write('Error'); exit; end else x:=-b/a;write('Otvet: ',x);end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.