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