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

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

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