интервал записывается как двойное условие (в скобках через and или or)
if (a < 4.2) or (a > 8.4) then power(a, 3);
аналогично для других переменных.
Var
N:integer;
P:real;
Begin
Write('N = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
P:=P*(N*2-1)/(2*N);
WriteLn('P = ',P:0:5)
End.
N = 50
P = 0.07959
N = 100
P = 0.05635
N = 200
P = 0.03987
Переводишь числа из двоичной в десятичную.
101011100=2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*1 + 2^3*1 + 2^2*1 + 2^1*0 + 2^0*0 = 256 + 0 + 64 + 0 + 16 + 8 + 4 + 0 + 0 = 348, 101110=2^5*1 + 2^4*0 + 2^3*1 + 2^2*1 + 2^1*1 + 2^0*0= 32 + 0 + 8 + 4 + 2 + 0 =46,
Складываешь 348+46= 394 и переводишь обратно в двоичную систему счисления. 394 = 110001010<span />
Var x,y1,y2,y3:real;
begin
readln(x);
y1:=exp(ln(x)*8);
y2:=exp(x-2)*(x-5);
y3:=sin(x-5);
writeln(y1:5:3,' ',y2:5:3,' ',y3:5:3);
end.
Пример:
1.8
<span>110.200 -2.620 0.058</span>