Question

Помогите написать блок-схему в pascal

Answer 1

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.