Решить несколько как пример, совсем не понимаю что это и как делать

256

304

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

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

Anny2404

Информатика

4,7(83 оценок)

Var a, b, c, d: real; begin write('введите a, b, c> > '); readln(a, b, c); if a< > 0 then begin d: =sqr(b)-4*a*c; if d> =0 then writeln('имеет корни') else writeln('не имеет корней') end else writeln('a не должен быть равным 0') end.