Question

Составьте программу,каторая по задоннаму a исследует корни уравнения aх=5  и выводит на экран значение высленного корня либо сообщение "Корней нет"

Answer 1

Program fdfe;
var a,x: real;
Begin
Writeln('введите a'); read(a);
x:=5/a;
if x=0 then writeln('корней нет') else
writeln('х равно ',x);
readln;
end.