var a,b,x: real; begin writeln('Введите коэффициенты линейного уравнения ax=b'); readln(a,b); if (a=0) and (b=0) then writeln('Решений бесконечно много') else if (a=0) and (b<>0) then writeln('Решений нет') else if a<>0 then begin x:=b/a; writeln('Корень уравнения: ',x) end end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
