Дискриминант на языке паскаль
dfgdfh2
2
25.01.2020 12:15
2
Другие вопросы по теме Информатика
a24027679
13.05.2020 10:50
MCЯнуля
13.05.2020 10:50
akkusha1
20.03.2020 09:24
виктория1552
29.12.2020 23:42
dreakalex
29.12.2020 23:36
vladik28092006
29.12.2020 23:18
Q778
08.09.2019 01:10
faridudin
08.09.2019 01:10
vladugan
05.06.2019 20:40
Паралиллепипед
05.06.2019 20:12
Популярные вопросы
- упр 2сказка соловей и роза...
3 - Зазначте європейця який перший дістався до берегів південної...
2 - Шыңғыс хан негізін қалаған мемлекет?...
2 - Поставити подані іменники І відміни в давальному, місцевому та...
3 - Составьте 3 предложения с инверсией и/или найдите в художественных...
2 - Составьте таблицу с описанием всех тканей (естествознание) ,...
2 - ДАМ 100 БЫСТРО Альфа частинку поглинула речовина Де поділась...
2 - Який об єм займають 8 моль кисню 02?...
2 - Обчисліть об єм прямокутного паралелепіпеда якщо він має такі...
1 - ДО ТЬ БУДЬ ЛАСКА! IВ ДАМ! Периметр прямокутника зі сторонами...
3
Pascal
1.var a,b,c,D,x1,x2: real;
2.begin
3.writeln('введите коэффициенты уровнения a,b,c');
4.D:=sqr(b)-(4*a*c);
5.read (a,b,c);
6.if (D > 0) then
7.x1:=-b+sqrt(D)/(2*a);
8.x2:=-b-sqrt(D)/(2*a);
9.Writeln('x1:=',x1);
10.Writeln('x2:=',x2);
11.end.