Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Срочно!!! Помогите написать программу в паскале
Надежда Ермолова
(99),
на голосовании
6 месяцев назад
Голосование за лучший ответ
Мария Мелькова
(300)
7 месяцев назад
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.
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^?
. Зависимость: (показано на фото)