Паскаль,очень срочно
Var x,y:real;
begin
read (x);
if x>10 then y:=sqrt(x - 5)/2;
if x<10 then y:=(x - 5)/2;
write(y)
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x,y:real;
begin
read (x);
if x>10 then y:=sqrt(x - 5)/2;
if x<10 then y:=(x - 5)/2;
write(y)
end.