Написать программу, которая решает уравнение ax+b = 0 (паскаль) использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0

175

398

Посмотреть ответы 2

Ответы на вопрос:

9573st

Информатика

4,5(72 оценок)

Var a,b,x: real; begin writeln('введите значение a'); readln(a); writeln('введите значение b'); readln(b); x: =)*b)/a; if (a=0) and (b=0)then writeln('х-любое число') else if (a=0) and (b< > 0) then writeln('нет корней') else writeln('x=',x); end.