Question

написать программу которая по заданному значению A определяет количество корней уравнения x*2=A+1 и вывод значения корней вместе с необходимыми сообщениями​

Answer 1

Ответ:

для уравнения x²=A+1

Pascal

var

 a :integer;

begin

 write('Введите a:');

 readln(a);

 if a+1<0 then

   writeln('Корней нет')

 else

   if a+1>0 then

     writeln('2 корня уравнения: x=-', sqrt(a+1), ' и  x=', sqrt(a+1))

   else

     writeln('1 корнь уравнения: x = ', sqrt(a+1));

end.