Var x,y:real;
begin
write(x=);readln(x);
if x>=5 then y:=9*x else y:=(x*x-4)/4;
writeln(y=,y:6:3);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x,y:real;
begin
write(x=);readln(x);
if x>=5 then y:=9*x else y:=(x*x-4)/4;
writeln(y=,y:6:3);
end.