нужно это задание написать на языке pascal
apexXx
2
28.04.2020 11:05
0
Другие вопросы по теме Информатика
sovuhe465
17.09.2019 21:19
DPAKOSHKA
17.09.2019 21:18
polinazayats0
17.09.2019 21:16
12202020303030139
17.09.2019 22:20
ЗалияАлиматова
22.04.2020 19:27
polatovskiy2002
09.06.2020 18:17
chorna202
09.06.2020 18:12
ilyawolk316
09.06.2020 18:07
Популярные вопросы
- Найти сторону квадрата, если его площадь равна: 1) 1,44см² 2)121см²...
1 - Почему повесть названа капитанская дочка ?...
1 - Горит заря. румяный вечер жарок. румянец по реке разлит. пестреют флаги плоскодонных...
2 - Мотоциклист проехал 1/9 намеченного маршрута . длина всего маршрута 81 км....
3 - Спряжение глагола jouer во французком языке. напишите...
2 - Рассмотрите гербарии цветков, опялемых различными...
2 - Охарактеризуйте татьяну из романа евгений онегин...
1 - Как фоткать когда хочешь задать вопрос! скажите ! !...
2 - Дан треугольник abc , ab=ac. внешний угол при вершине с равен 100 градусов....
2 - Где на ходится гора багдо в астрахани...
1
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.