Для заданного числа N распечатать числовую последовательность, в которой каждый последующий

Для данного числа N распечатать числовую последовательность, в которой каждый следующий элемент последовательности определяется через предыдущий элемент р, и равен:

Вычисления прекратить, когда очередной элемент последовательности станет равен 1. (Знаменито, что в любой таковой последовательности рано либо поздно встречается 1).

Входные данные: Дано целое число N (1 N 100).

Выходные данные: В единственной строке вывести последовательность до 1.

Пример:

Входные данные

Выходные данные

7

7 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

Задать свой вопрос
Nina
как определяется p?
1 ответ
Буду считать что нечетные умножаются на 3 и прибавляется 1, четные делятся на 2
i, k, n:integer;
a:array[1..10000] of integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt);
rewrite(output);
read(n);
a[1]:=n;
k:=1;
while a[k]lt;gt;1 do
if (a[k] div 2)=0 then begin a[k]:=a[k] div 2; k:=k+1; end
else begin a[k]:=a[k]*3+1; k:=k+1; end;
for i:=1 to k do
write(a[i],' ');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт