Ответы
Ответ дал:
0
var
a,b,x:real;
begin
Read(a,b);
if a>1 then x:=Sqrt(a*a+b*b)/(2*a)
else if a=1 then x:=Cos(a)
else x:=Abs(a);
Writeln(x)
end.
a,b,x:real;
begin
Read(a,b);
if a>1 then x:=Sqrt(a*a+b*b)/(2*a)
else if a=1 then x:=Cos(a)
else x:=Abs(a);
Writeln(x)
end.
Приложения:
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад