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