1.
16 кодов можно составить из 4-х бит.
2. задача, обратная первой:
3 бита нужно, чтоб можно было составить 8 разных кодов.
Очевидно выражение такое: y = cos(2x)+sin(x/4)
Получим линейный алгоритм:
var x,y:real;
begin
writeln('Введите Х');
readln(x);
y:=cos(2*x)+sin(x/4);
writeln(y);
end.
Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>