Составить программу решения линейного уравнения ax + b = 0, где а не равно 0.
Составить программу решения линейного уравнения ax + b = 0, где а не равно 0.
Гость
Ответ(ы) на вопрос:
ГостьПишу на QBasic
CLS
INPUT A
INPUT B
X=-(B/A)
PRINT X
программа на паскале
var a,b,x: integer;
begin
readln (a);
readln (b);
x:=(-1)*(b/a);
writeln (x);
end.
ГостьВот. program pr; var x:real;a,b:integer; begin write('a='); readln(a); write('b='); readln(b); writeln(); writeln(a,'*x+',b,'=0'); x:=-(b/a); write('x=',x:0:2); end.
Не нашли ответ?
Похожие вопросы