Question

Сделать прогу на паскале Если n четное, то делим на 2, если n нечетное, то 3n+1 Пример: 7->22->11->52->26и т д

Answer 1

Ответ:

var n : integer;

begin

 readln(n);

 if n mod 2 = 0 then writeln(n/2) else writeln(n*3+1);

end.

Объяснение:

пример не понятен, как у тебя получилось 11->52 ?

Answer 2

Да, конечно! Я могу помочь вам написать программу на языке Pascal, которая будет выполнять описанное вами действие. Вот пример кода на Pascal, который реализует данную логику: ```pascal program CollatzSequence; var n: integer; begin writeln('Введите значение n:'); readln(n); while n <> 1 do begin write(n, ' -> '); if n mod 2 = 0 then n := n div 2 else n := 3 * n + 1; end; writeln(n); end. ``` В этом коде мы считываем значение `n` с помощью `readln` и затем выполняем цикл `while`, пока `n` не станет равным 1. Внутри цикла мы выводим текущее значение `n` с помощью `write` и затем проверяем, является ли `n` четным или нечетным. Если `n` четное, мы делим его на 2 с помощью оператора `div`. Если `n` нечетное, мы умножаем его на 3 и прибавляем 1. Процесс повторяется до тех пор, пока `n` не станет равным 1. Например, если ввести значение 7, программа будет выводить следующую последовательность: 7 -> 22 -> 11 -> 34 -> 17 -> 52 -> 26 -> 13 -> 40 -> 20 -> 10 -> 5 -> 16 -> 8 -> 4 -> 2 -> 1. Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.