Cоставить программу для решения квадратного уравнения ax^2+bx+c=0
oles2014
1
18.03.2019 21:50
1
Другие вопросы по теме Информатика
Аврoра
18.10.2020 10:34
Darya17061
18.10.2020 10:35
tarasIT
18.10.2020 10:24
perelyana9
23.02.2021 17:12
robot1212
23.02.2021 17:14
minnegulovdamir
30.05.2019 01:40
OgoKatya
04.07.2019 14:30
Сложное123
04.07.2019 14:30
Sashunya20061
04.07.2019 14:30
Популярные вопросы
- Исключить лишнее 1. Палеолит, ашель, мезолит, неолит 2. Чоппинг, чоппер, гарпун,...
2 - Замените выделенные слова Синоминичным фразеологическими оборотами : прочитать...
3 - Массасы 19,2г метанол мен массасы 28,8г сирке кышкылын арекеттестиргенде 29,6г...
3 - с решением: Для каждого номера нужно найти d(y), e(y) и T...
3 - постройте график функции y=(x-4)2+4.Используя график,найдите:а)нули функции.б)промежутки...
2 - Как проявляется единство объективного и субъективного, общего и индивидуального...
3 - Майбұлақты зерттеген ғалым?...
1 - умножение алгебрическтх уравнений на листочке поставлю 5 звезд в добавок, просто...
2 - Только для чтения. Это ДОМАШНЕЕ ЗАДАНИЕ:Определить стоимость горения 20электрических...
3 - Математика 10 класс. ів .Дуже потрібна до Можна на українській і російській мовах...
1
var a,b,c,d:real;
begin
readln(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then writeln('Net kornei');
if d=0 then writeln('x=',-b/(2*a));
if d>0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2=',(-b+sqrt(d))/(2*a));
end.