Составить программу квадратного уровнения
daryalife1998
1
08.03.2019 12:40
1
Другие вопросы по теме Информатика
sasha60503
04.02.2021 11:26
VladimirLoll
04.02.2021 11:26
grigorisinnatal
01.08.2019 02:30
dol2711
21.05.2019 12:12
esenjel
21.05.2019 12:12
zhan05041976
20.08.2019 14:30
NwM12
20.08.2019 14:30
Keyanplay1
02.06.2019 17:40
23вопрос4
02.06.2019 17:40
Популярные вопросы
- Вставьте пропущенные буквы. определите род и число . укажите краткие прилагательные...
2 - Чтобы получить жёлтый осадок фосфата серебра, к нитрату серебра прилили 63,6 г...
2 - Сочинение на тему тугар вовк друг чи ворог объём 2 страницы...
1 - Твір на тему my duties 15 речень. по ійськи....
2 - Как изменится внутренняя энергия 50мл аммиака, если он конденсируется? обясните...
2 - Будда о правилах поведения человека могу и больше ...
2 - Порівняня горячих джерел та гейзерів...
2 - Напишите сочинение-рассуждение на тему: любовь на страницах повести пушкина, капитанская...
3 - Зындығы 16 7\10м болатын арқан 3 бөлікке бөлінген .бірінші бөліктің ұзындығы 3...
3 - Анализ стихотворения тютчева « »...
3
var a,b,c,D,x1,x2:real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if D<0 then Writeln('Только комплексные корни')
else
begin
d:=sqrt(d);
x1:=(-b+d)/(2*a);
x2:=(-b-d)/(2*a);
WriteLn('x1=',x1);
WriteLn('x2=',x2);
end;
end.