Даны действительные числа a, b, c (a> 0полностью исследовать биквадратное уравнение a*x^4+b*x^2+c=0. паскаль!

Var   a, b, c, d, x1, x2, x3, x4, y1, y2: double; begin   write('введите через пробел коэффициенты a,b,c: ');   readln(a, b, c);   if b = 0 then begin       if c > 0 then writeln('нет действительных корней')       else       if c = 0 then writeln('единственный корень x=0')       else begin           y1 : = -c / a;           if y1 > 0 then begin               y1 : = sqrt(y1); x1 : = -sqrt(y1); x2 : = -x1;               writeln('два действительных корня: ', x1, ', ', x2)           end           else               writeln('нет действительных корней')       end   end   else   if c = 0 then       if b > 0 then writeln('единственный корень x=0')       else begin           y1 : = -b / a;           if y1 > 0 then begin               x1 : = sqrt(-b / a); x2 : = -x1;               writeln('три действительных корня: 0, ', x1, ', ', x2)           end           else               writeln('единственный корень x=0')       end   else begin       d : = sqr(b) - 4 * a * c;       if d < 0 then writeln('нет действительных корней')           else       if d = 0 then begin           y1 : = -b / (2 * a);           if y1 < 0 then               writeln('нет действительных корней')           else begin               x1 : = sqrt(y1); x2 : = -x1;               writeln('два действительных корня: ', x1, ', ', x2)           end       end       else begin           d : = sqrt(d);           y1 : = (-b - d) / (2 * a); y2 : = (-b + d) / (2 * a);           if y1 < 0 then               if y2 < 0 then writeln('нет действительных корней')               else begin                   x1 : = -sqrt(y2); x2 : = -x1;                   writeln('два действительных корня: ', x1, ', ', x2)               end                   else           if y2 < 0 then begin               x1 : = -sqrt(y1); x2 : = -x1;               writeln('два действительных корня: ', x1, ', ', x2)           end           else begin               x1 : = -sqrt(y1); x2 : = -x1;               x3 : = -sqrt(y2); x4 : = -x3;               if x1 = x2 then                   writeln('три действительных корня: ', x1, ', ', x3, ', ', x4)                           else               if x3 = x4 then                   writeln('три действительных корня: ', x1, ', ', x2, ', ', x3)               else                   writeln('четыре действительных корня: ', x1, ', ', x2, ', ', x3, ', ', x4)           end       end   end end. тестовое решение: введите через пробел коэффициенты a,b,c: 1 -25 144 четыре действительных корня: -3, 3, -4, 4 введите через пробел коэффициенты a,b,c: -1 -4 5 два действительных корня: -1, 1

first_num = int(input())

second_num = int(input())

third_num = int(input())

sum = 0

if (first_num > -1):

   sum += first_num

if (second_num > -1):

   sum +=second_num

if (third_num > -1):

   sum += third_num

print(sum)

Объяснение:

first_num = int(input())  // Объявление + ввод первой переменной

second_num = int(input())  // Объявление + ввод второй переменной

third_num = int(input())  // Объявление + ввод третьей переменной

sum = 0  // Объявление переменной, которая будет хранить сумму

if (first_num > -1):  // Если первый элемент положительный

   sum += first_num  // Сумма = сумма + первое число

if (second_num > -1):  // Если второй элемент положительный

   sum +=second_num  // Сумма = сумма + второе число

if (third_num > -1):  // Если третий элемент положительный

   sum += third_num  // Сумма = сумма + третье число

print(sum) // Вывод суммы

Обозначим количество сотен заданного числа х, а количество десятков — у. Заданное число имеет вид:

100 * х + 10 * y + 3.

После перенесения цифры 3 в начало:

3 * 100 + 10 * х + y.

Составляем уравнение:

3 * (100 * х + 10 * y + 3) + 1 = 3 * 100 + 10 * х + y;

290 * x + 29 * y = 290;

10 * x + y = 10;

x = (10 - y) / 10.

х не может бытьравно 0, так как число трехзначное.

Значит х может быть только единицей:

x = 1.

При этом y = 0.

Мы определили заданное число. Оно равно 103.

Проверка:

3 * 103 + 1 = 310;

310 = 310.

ответ: исходное число равно 103.