Считаем в десятичной, ответ переводим в двоичную
1) 63 * 4 = 252, переводим в двоичную 11111100
2) F8 = 248 + 1 = 249, переводим в двоичную 11111001
3) 333 = 219, переводим в двоичную 11011011
4) 11100111
Во всех числах по 6 единиц в двоичной системе, сравниваем ответы в двоичной системе, первое число самое большое.
Ответ: 1)
function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) - G(n - 1)
end;
function G(n: integer): integer;
begin
if n = 1 then result := 1
else result := F(n - 1) + 2 * G(n - 1)
end;
begin
Println(F(5)/G(5));//-2
end.
если я правильно понял что <u>bx нужно возвести в степень 2-a</u> (и тоже самое с e) написано на паскале abc
program asd;
uses crt;
var
x,b,a,t,g,e:integer;
begin
writeln('Введите x');
readln(x);
writeln('Введите b');
readln(b);
writeln('Введите a');
readln(a);
writeln('Введите t');
readln(t);
writeln('Введите g');
readln(g);
writeln('Введите e');
readln(e);
writeln('Данные первого примера: a=', a, ' b=', b ,' x=',x ,' t=', t , ' g=', g);
writeln('Результат 1 примера: ', sqr(x)*x * sqr(t*g) * (sqr(x+b) +a/sqrt(x+b)));
writeln('Данные второго примера: a=', a, ' b=', b ,' x=',x ,' e=', e);
writeln('Результат 2 примера: ', ( Power(b*x,2-a) )/ (Power(e,a*x-1) ) );
end.
Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>