Помогите пожалуйста безотлагательно составить программку по решению линейного уравнения ax+b=0

Помогите пожалуйста безотлагательно составить программу по решению линейного уравнения
ax+b=0

Задать свой вопрос
1 ответ

program chy;

Var x,a,b :real;

begin

write('a=');

read (a);

write('b=');

read(b);

if alt;gt;0 then x:=-b/a;

Writeln ('x= ',x);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт