Pascal
Вычислить дискриминант квадратного уравнения с помощью процедуры или функции (procedure, function)
Ответы
Ответ дал:
3
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.
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад