Предмет: Информатика,
автор: Neftejugansk
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.
Похожие вопросы
Предмет: Українська мова,
автор: cmit12
Предмет: Немецкий язык,
автор: larinastuscha1
Предмет: Русский язык,
автор: AdeliLeksa
Предмет: Обществознание,
автор: KsaMode
Предмет: Русский язык,
автор: Dfae