Распределите экологические факторы по грушам. ответ запишите в таблицу в виде цифр: 1. влажность почвы, - id1872170920221009 от 7164260 09.10.2022 23:46

Question

Другие предметы: Распределите экологические факторы по грушам. ответ запишите в таблицу в виде цифр: 1. влажность почвы, воздуха 2. симбиоз 3. температура воздуха минеральный состав почвы 5. вырубка леса 6. паразитизм 7.осушения озер 3. охота 9. конкуренция Биотический фактор Абиотический фактор Антропогенный фактор​

7164260 · Accepted Answer

program zadacha_3;
{Решение уравнения a*x*x+b*x+c=0}
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln ('Введите коэффициенты');
write ('a=');readln (a);
write ('b=');readln (b);
write ('c=');readln (c);
  if (a=0) and (b=0) and (c=0) then
   writeln('Корней бесконечно много')
    else
  if (a=0) and (b=0) and (c<>0) then
  writeln ('Корней нет')
  else
  if (a=0) and (b<>0) then
  begin
  writeln ('Линейное уравнение');
  x1:=-c/b;
  writeln('x=',x1:4:2);
  end
   else
{Решение квадратного уравнения}
      begin
  d:=sqr(b)-4*a*c;
  if d<0 then
  writeln ('Действительных корней нет!')
  else
  if d=0 then
  begin
  x1:=-b/(2*a);
     writeln('x=',x1:4:2);
     end
  else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:4:2, ' x2=',x2:4:2);
end
end;
readln
end.

MOGZ ответил