Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Срочно!!! Помогите написать программу в паскале

Надежда Ермолова Ученик (98), на голосовании 1 день назад
Дано натуральное число n>=1. Определите число а, для которого
выполняется неравенство: 2^?−1 ≤ ? < 2^?
. Зависимость: (показано на фото)
Голосование за лучший ответ
Мария Мелькова Знаток (280) 1 месяц назад
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.
Похожие вопросы