Question

Помогите пожалуйста
Решить уравнение ax+b=0.    a и b вводятся с клавиатуры.
для паскаля

если сможете ещё и блок-схему.

Answer 1

Program uravnenie;
Var a,b,x: real;
BeginWriteln (' введите a');
Readln (a);Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
End.
___________________________________

99023000376660f8ad1e52b417c6293f.pas