Используя **процедуры** написать программу для решения квадратных уравнений.

Question

предусмотреть деление на ноль и отсутствие корней.

pascal

Анна Пучинова · Accepted Answer

> Используя **процедуры** написать программу.. . 
> предусмотреть.. . 
Это что-то типа приказа или распоряжения? 
Вообще-то здесь отвечают на вопросы, ну еще иногда исполняют вежливые просьбы.

Юля Столяренко · Answer

На будущее пишите на каком языке программирования

Илья Александров · Answer

Даже если укажите язык программирования, вам вряд ли кто поможет. 
 
Почему? 
 
Ответ: Где ваше решение? 
 
P.S Не процедуры, а процедурный стиль программирования или процедурный подход.

Камилла Кязимли · Answer

Как с процедурами не знаю но можно вот такой код попробовать.
Program p23;
var
a, b, c, d: integer;
x1, x2: real;
begin
readln(a);
readln(b);
readln(c);
d:=(b*b)+(-4*a*c);
if d>0
then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(x1);
writeln(x2);
end;
if d=0
then begin
x1:=(-b/2*a);
x2:=0;
writeln(x1);
writeln(x2);
end;
if d<0
then begin
write('корней нет');
end;
end.