1) :
64 байта = 512 бит
0,2 КБ = 819,2 бит
1,05 байт = 8,4 бит
1 КБ = 8192 бит
2) :
16 бит = 2 байта
512 КБ = 524288 байт
240 бит = 30 байт
1,12 КБ = 1146,88 байт
Если я что-то неправильно понял или сделал, пожалуйста, скажите об этом -- исправлю.
var
a1:= 2.0;
i,n:integer;
otv:real;
Begin
Write('Укажите, какой член последователности вы хотите найти: ');
Read(n);
if n=1 then write('a1 = 2') else
Begin
for i:=2 to n do
Begin
otv:=2+(1/a1);
a1:= otv;
End;
write('a'+n+' = '+otv);
End;
End.
#include <iostream>
using namespace std;
int fib(int n)
{
if(n == 0) return 0;
if(n == 1 || n == 2) return 1;
return fib(n-1)+fib(n-2);
}
int main()
{
int n;
cin >> n;
int ans = 0;
for (int i = 1; i < n; ++i)
if (fib(i) >= n)break;
else ans += fib(i);
cout << ans;
}
Пишешь в первой строке: х, затем числа, для которых посчитать
во второй строке: у, затем:
=ЕСЛИ(B1<-1;-4*B1+2+SIN(B1);ЕСЛИ(B1<0;ABS(B1);2*B1*LN(B1+1)))
===== PascalABC.NET =====
begin
var a := ReadArrInteger(5);
a.Max.Println
end.