Помогите пожалуйста
Решить уравнение ax+b=0. a и b вводятся с клавиатуры.
для паскаля
если сможете ещё и блок-схему.
Ответы на вопрос
Ответил Аноним
0
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.
___________________________________
Var a,b,x: real;
BeginWriteln (' введите a');
Readln (a);Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
End.
___________________________________
Приложения:
Новые вопросы