Program NoName;
var
a:array [1..3000] of integer;
b,c,i,n:integer;
Begin
WriteLn('введіть кількість чисел');
ReadLn( n );
a[1]:=1;
a[2]:=1;
b:=0;
WriteLn('Список ',n,' чисел Фібоначі');
WriteLn(a[1]);
WriteLn(a[2]);
for i:= 3 to n do
begin
a[i]:=a[i-2]+a[i-1];
b:=b+a[i];
WriteLn(a[i]);
end;
b:=b+a[1]+a[2];
WriteLn('Сума усіх чисел Фібоначі становить ',b);
end.
Ответ:
Вот держи
Объяснение:
1)65 = 0100 0001
2)-87 = 1101 0111
3) 1001 1010
4) 0100 1001
5)1000 0000 0010 0001
6)0100 0000 0001 1111
вроде так, но перепроверь.
Security 360 - Антивирусная программа для ПК
Audi; BMW; Volkswagen; Datsun; KIA