Регистрация
fsulleymanzade
24.06.2021 14:21
Информатика
Есть ответ 👍

Якому поняттю відповідає це значення?

Засіб, який дозволяє введення даних, що відповідають визначеним умовам.
Відповідь:

119
434
Посмотреть ответы 1

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

lilcutthroat
lilcutthroat
4,5(60 оценок)

var a,b,c, x1,x2,D: real;

begin

writeln(' а,б,с : ');

readln(a,b,c);

D := b*b - 4*a*c;

if D<0 then writeln('нет ответа') ;

if D=0 then

begin

x1 := -b/2/a;

writeln('х1 : ',x1:0:3);

end;

if D>0 then

begin

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

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

writeln('х1 и х2: x1=',x1:0:3,' x2=',x2:0:3);

end;

end.

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