Мария Мелькова
Знаток
(278)
3 недели назад
program CalculateA;
function a(n: Integer): Integer;
begin
if n = 1 then
a := 1
else
a := a(n div 2) + 1;
end;
var
n: Integer;
begin
Write('Введите натуральное число n >= 1: ');
ReadLn(n);
WriteLn('Число a для n = ', n, ' равно ', a(n));
end.
выполняется неравенство: 2^?−1 ≤ ? < 2^?
. Зависимость: (показано на фото)