132(10)=<span>10000100(2)
132(10)=24(8)
132(10)=84(16)
43(8)=</span><span>100011(2)
43(8)=35(10)
1AB(16)=</span><span>110101011(2)
1AB(16)=427(10)
</span>
Var x,y:real;
begin
write('x = ');
readln(x);
if x<0
then y:=exp(x)+sin(sqrt(x*x+1))/cos(sqrt(x*x+1))
else y:=x*x+4*cos(x);
writeln('y = ',y:5:2);
end.
Пример 1:
<span>x = -0.5
y = 2.66
Пример 2:
</span><span>x = 3.8
y = 11.28</span>
Преобразуем по схеме Горнера, избавляясь от вычисления степени х.
y = 5x²+7x-30 = -30+x(7+5x))
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
Writeln('Y=',-30+x*(7+5*x))
end.
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;
Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>