Pascal

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

Question

Антонидка

23 июня, 05:01

+4

Ответы (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)