У програму вводиться число x
Програма містить цикл який повинен виконуватися поки xlt;> 1.
При цьому якщо x - парне то x: = x / 2, а якщо не парне то x: = (3x + 1) / 2
Як зробити програму працюючу з такими умовами?
Це робиться дуже просто.
Для початку відкриваємо IDE для Паскаля - ту, до якої ви звикли.
Дивимося, є завдання. За нею потрібно скласти алгоритм, щоб закодувати його. У формулюванні даного завдання алгоритм фактично присутній.
Першим кроком потрібно вважати число. Readln.
Цикл поки змінна має якесь значення Repeat..Until або While.
Якщо число парне, то одну дію, а якщо непарне, то інше. If,: = і оператор mod наші друзі.
Ну і результат треба вивести. Writeln.
Все, програма готова.
Залишити відповідь