Напишите программу для решения квадратного уравнения - вопрос №56217722 от АВатар1765 02.11.2021 11:00

Question

Информатика: Напишите программу для решения квадратного уравнения вида ax^2+bx+c, где a не равно 0. примечание: если ваше условие выполняется и необходимо выполнение более одного действия, используйте для них конструкцию begin end, сохраняя оформление(сдвиг вправо). пример: if a b then begin a: =b-1; writeln( a= ,a); end else writeln ( b= ,b); примечание: во всех предусмотрите очистку экрана при каждом запуске программы и задержку экрана, чтобы не нужно было нажимать alt+f5. а такое вначале на экране должна

АВатар1765 · Answer

Var a,b,c:real;
begin
readln(a);
readln(b);
readln(c);
if (b*b-4*a*c)>=0 then writeln('deistvitelnie korni est!') else writeln('deistvitelnih korney net');
if (b*b-(4*a*c))>0 then begin writeln('2 kornya'); writeln('x1= ',(-b-sqrt(b*b-4*a*c))/(2*a)); writeln('x2= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end;
if (b*b-(4*a*c))=0 then begin writeln('1 koren'); writeln('x= ',(-b+sqrt(b*b-4*a*c))/(2*a)) end;
end.