Регистрация
Персик1лайм
15.06.2022 04:27
Информатика
Есть ответ 👍

Написать программу которая находит корни квадратного уравнения

206
357
Посмотреть ответы 2

Ответы на вопрос:

16Лера11
16Лера11
4,4(29 оценок)

ДАЙ ЛУЧШИЙ ОТВЕТ ОЧЕНЬ НАДО

Объяснение:

var a,b,c: real;

    x1,x2,D: real;

begin  readln(a,b,c); 

D := b*b - 4*a*c;  if D<0 then   

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

  else if D=0 then begin   

x1 := -b/2/a; 

  writeln('x1=x2=',x1); 

end  else begin 

  x1 := (-b-sqrt(D))/2/a;   

x2 := (-b+sqrt(D))/2/a;   

writeln('x1=',x1,' x2=',x2);  end;

Dasěuke345
Dasěuke345
4,5(87 оценок)
// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! // индексация с "1", если номера , начиная с "0", заменить (i+1)*(i+1)  на (i*i)begin var a: = arrrandom(14,-20,30).println.select((v,i)-> v.iseven? (i+1)*(i+1): v).println; end. пример:   28 -12 -8 21 -16 11 3 21 11 -13 26 4 -19 231 4 9 21 25 11 3 21 11 -13 121 144 -19 23

Популярно: Информатика