Ответ(ы) на вопрос:
Гость 1)
Var
x,y:real;
begin
read(x);
y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
writeln(y);
end.
2)
Var
x,y:real;
begin
read(x);
if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
writeln(y);
end.
3)
Var
p,i:integer;
begin
p:=1;
for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
if odd(i) then p:=p*i;
writeln(p);
end.
Не нашли ответ?
Похожие вопросы