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.
Поделитесь своими знаниями, ответьте на вопрос:
Требуется написать программу, позволяющую вычислять значение дискриминанта квадратного уравнения. Значения коэффициентов a, b, c указываются внутри программы. Pascal
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.