Регистрация
dank02
29.11.2021 15:36
Информатика
Есть ответ 👍

Сделайте программу для чертежника"Ракета

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

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

ladychoco
ladychoco
4,7(72 оценок)

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

begin

read(a,b,c);

D:=sqr(b)-4*a*c;

if D>=0 then

begin

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

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

write(x1,x2);

else write('Решений нет');

end.

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