Pascal Вычислить дискриминант квадратного уравнения с помощью процедуры или функции (procedure, function)
Pascal
Вычислить дискриминант квадратного уравнения с помощью процедуры или функции (procedure, function)
Гость
Ответ(ы) на вопрос:
Гостьvar
x,y,z:real;
function d(a,b,c:real):real;
begin
readln(a,b,c);
d:=sqr(b)-4*a*c;
end;
begin
writeln(d(x,y,z))
end.
Не нашли ответ?
Похожие вопросы