Урок 13.1 Задача 13
Primary tabs
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)
var M, N:integer; begin readln(M); 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 repeat M:=M*3; writeln(M); until M>N ; readln(); end.
- Log in to post comments
- 302 reads