IceBand252
13.08.2021 00:37

нужно это задание написать на языке pascal

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Proжареный
14.10.2020 00:20

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота