Pascal

Вычислить дискриминант квадратного уравнения с помощью процедуры или функции (procedure, function)

Question

Ильюша

27 февраля, 01:21

+5

Ответы (1)

Знаете ответ?

Альберт · Answer 1

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.

PascalВычислить дискриминант квадратного уравнения с помощью процедуры или функции (procedure, function)