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