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