В программу вводится число x
Программа содержит цикл который должен выполняться пока x<>1.
При этом если x - чётное то x:=x/2, а если не чётное то x:=(3x+1)/2
Как сделать программу работающую с такими условиями?
Это делается очень просто.
Для начала открываем IDE для Паскаля - ту, к которой вы привыкли.
Смотрим, есть задача. По ней нужно составить алгоритм, чтобы закодировать его. В формулировке данной задачи алгоритм фактически присутствует.
Первым шагом нужно считать число. Readln.
Цикл пока переменная имеет какое-то значение Repeat..Until или While.
Если число четное, то одно действие, а если нечетное, то другое. If, := и оператор mod наши друзья.
Ну и результат надо вывести. Writeln.
Все, программа готова.
Добавить комментарий