Задача 13 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче,
а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N
(и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;
Получим:
9
27
}
program task13_lesson13_1; var m, n : integer; begin writeln('Enter even Number :'); readln(m); writeln('Enter number :'); readln(n); if ((m mod 2) = 1) then // ветка нечетности while m < n do begin writeln(m*3); m := m * 3; end else while ((m mod 2) = 0) do begin writeln(m div 2); m := (m div 2); end; readln(); end.
- Log in to post comments
- 443 reads