Написать программу, которая решает уравнение ax+b = 0 (Паскаль)
использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0
использовать эти ур. в качестве решения: 2x+4=0; 2x+0=0; 0x+2=0; 0x+0=0
More Questions From This User See All
Answers & Comments
begin
writeln('Введите значение a');
readln(a);
writeln('Введите значение b');
readln(b);
x:=((-1)*b)/a;
if (a=0) and (b=0)then writeln('х-любое число')
else if (a=0) and (b<>0) then writeln('Нет корней')
else writeln('x=',x);
end.