ПОЖАЛУЙСТА. СРОЧНО. СЛОЖНО. На языке Паскаль, вроде, написать надо
Answers & Comments
kaeru322
Var x,y: real; begin y:=0; readln(x); if x>5 then y:= (sqr(1/(x-5))+ 4) else y:=(sqr(x)*x)-4*x; writeln(y); end.
1 votes Thanks 0
vladmor
Да запутался с ветками условия Исправлено //Pascal var x,y:real; begin readln(x); if x >5 then y:=sqr(1/(x-5))+4 else y:=x*x*x-4*x; writeln(y);
Answers & Comments
begin
y:=0;
readln(x);
if x>5 then
y:= (sqr(1/(x-5))+ 4)
else y:=(sqr(x)*x)-4*x;
writeln(y);
end.
Исправлено
//Pascal
var x,y:real;
begin
readln(x);
if x >5 then y:=sqr(1/(x-5))+4 else y:=x*x*x-4*x;
writeln(y);
end.