var
a,P:integer;
begin
writeln('Введите периметр равнобедренного треугольника: ');
read(P);
writeln('Введите основание равнобедренного треугольника: ');
read(a);
writeln('Боковая сторона равнобедренного треугольника: ',(P-a)/2);
<span>end.</span>
Var f1,g1,fn,gn:real;
begin
f1:=1;
g1:=1;
for var i:=2 to 5 do begin
fn:=f1-g1;
gn:=f1+2*g1;
writeln('F(',i,')=',fn,' G(',i,')=',gn);
f1:=fn;
g1:=gn;
end;
writeln('F(5)/G(5)=',fn/gn);
<span>end.
Результат:
F(2)=0 G(2)=3
F(3)=-3 G(3)=6
F(4)=-9 G(4)=9
F(5)=-18 G(5)=9
F(5)/G(5)=-2
</span>
1010 в десятичной = 1111110010 в двоичной
В полученном числе 7 единиц
Ответ: 7.