Задача 14 Урок 13.1
Primary tabs
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;
Получим:
9
27
var m,n: integer; begin writeln('vvedite cislo M'); readln(m); writeln('vvedite cislo N'); readln(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; writeln('END'); readln(); end.
Вывод консоли:
vvedite cislo M 3 vvedite cislo N 15 9 27 END
- Log in to post comments
- 185 reads