#include <iostream>
using namespace std;
int Fib(int n){
int f0=1;
int f1=1;
int f;
for (int i=3;i<=n;i++) {
f=f0+f1;
f0=f1;
f1=f;
}
return f;
}
int main() {
for (int i=3;i<8;i++){
cout << "Fib(" << i << ") = " << Fib(i) << "\n";
}
}
Пример:
Fib(3) = 2
Fib(4) = 3
Fib(5) = 5
Fib(6) = 8
Fib(7) = 13
64-х символьный алфавит кодирует один символ 6-ю битами
всего в сообщении 32 символа * 6 бит/символ = 192 бита
Ответ: Съешь ещё этих мягких французских булок, да выпей же чаю.
Program Wybor;
uses Crt;
var y, a, b :real;
begin
a:=226.3;
b:=931.3;
if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
else y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
WriteLn('y=', y:6:3);
ReadLn;
end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...