14 lines
209 B
ObjectPascal
14 lines
209 B
ObjectPascal
var
|
|
a, b, x: real;
|
|
|
|
begin
|
|
readln(a, b, x);
|
|
if a = 0 then
|
|
write('íåò ðåøåíèé')
|
|
else
|
|
begin
|
|
if b = 0 then
|
|
write('x = 0')
|
|
else write('x =', b / a, ' èëè x =', -b / a);
|
|
end
|
|
end. |