Задача 13 урок 13.1
Primary tabs
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран).
var m,n: integer; begin readln(m,n); if (m mod 2=0) then repeat m:=m div 2; writeln(m); until(m mod 2=1) else repeat m:=m * 3; writeln(m); until(m > n); end.
- Log in to post comments
- 411 reads