Question

Написать программу вычисления у в зависимости от значения х:у= 1/х^2, при х<0у=х/6, при других хПомогите пожалуйста!

Answer 1

Program HelloWorld;var x,y:double;begin    x:=12;    if(x<0) then y:=1/(x*x)    else y:=x/6;    writeln(y:0:2);end.

Answer 2

Var
x:integer;
y:real;
begin
readln(x);
if x < 0 then
begin
y:= 1/x*x;
end
else
y:=x/6;
writeln(y);
end.