Действительные числа a, b, c (a не равно 0). Выяснить, имеет ли квадратное уравнение действительные корни. Если действительные корни имеются, то найти их. В противном случае ответом должно служить сообщение, что действительных корней нет
Var a:real;
begin
readln(a);
if a=0 then writeln('Корней нет')
else writeln('x = ',5/a:4:2);
end.
Пример:
4
<span>x = 1.25</span>
1-ажк
2-ажек
3-ажевк
4-ажевдк
5-аек
6-аевк
7-аевдк
8-абвк
9-абвдк
10-агбвк
11-агбвдк
12-агвдк
13-агвк;
13
Ми розумні та кмітливі і завжди на позитиві!