Як написати на Паскалі програму (см)?



+7 +/-

У програму вводиться число x

Програма містить цикл який повинен виконуватися поки xlt;> 1.

При цьому якщо x - парне то x: = x / 2, а якщо не парне то x: = (3x + 1) / 2

Як зробити програму працюючу з такими умовами?

Профіль користувача Oppenheimer Запитав: Oppenheimer   (рейтинг 27885) Категорія: Інтернет

Відповідей: 1

1 +/-

Це робиться дуже просто.

Для початку відкриваємо IDE для Паскаля - ту, до якої ви звикли.

Дивимося, є завдання. За нею потрібно скласти алгоритм, щоб закодувати його. У формулюванні даного завдання алгоритм фактично присутній.

Першим кроком потрібно вважати число. Readln.

Цикл поки змінна має якесь значення Repeat..Until або While.

Якщо число парне, то одну дію, а якщо непарне, то інше. If,: = і оператор mod наші друзі.

Ну і результат треба вивести. Writeln.

Все, програма готова.

Відповів на питання: Vick