profile
Опубликовано 5 лет назад по предмету Информатика от krasn4565

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

  1. Ответ
    Ответ дан viplilia

    program chy;

    Var x,a,b :real;

    begin

    write('a=');

    read (a);

    write('b=');

    read(b);

    if a<>0 then x:=-b/a;

    Writeln ('x= ',x);

    end.