Требуется написать программу, позволяющую вычислять значение дискриминанта квадратного уравнения. Значения коэффициентов a,b,c указываются внутри программы. Pascal
vadimamaniya
2
23.04.2021 20:45
2
Другие вопросы по теме Информатика
OtlicnikKZ1337
20.11.2020 21:45
oksana78shilki
12.04.2020 21:26
olegl123
12.04.2020 21:27
WWW2017WWW
10.09.2020 13:58
1Sinon12
10.09.2020 13:58
nas4285
16.04.2021 08:07
Амаpил1768
16.04.2021 08:07
popov03
16.04.2021 08:07
mangle56
16.04.2021 08:07
Популярные вопросы
- Один работник может сделать α деталей за 6 часов , а другой может сделать...
2 - Окислили 10,8 гр трёхвалентного металла получили 20,5 гр его оксида.найти...
2 - Сочинение на тему мой опыт, взаимодействие тел...
3 - Напишите - сочинение рассуждение, раскрывая смысл высказывания известного...
3 - Что такое справедливость в рассказе левша? 50-40 34...
3 - На движение: поезд был задержан в пути на 30 мин, а затем на расстоянии...
3 - Найти наименьшее общее кратное чисел а и б,представленных разложением на...
3 - Культурная революция: цели, особенности, реализация, развитие науки и техники...
2 - Який момент найбыльше сподобався з книги теорадори з васюкивки...
1 - Какие волшебные предметы из сказки аленький цветочек...
3
program n_1;
var a,b,c,d:integer;
begin
a=5;
b=2;
c=8;
d:=b*b-4*a*c;
writeln('Значение дискриминанта D = ',d);
end.
program simple;
var a, b, c, D: integer;
BEGIN
readln(a);
readln(b);
readln(c);
writeln('D = ', (b * b) - (4 * a * c))
END.