Решение задачи 13 из главы 13.1
Primary tabs
Решение задачи 13 из главы 13.1
13. Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран)
program Project13; var a, b: integer; begin writeln('Vvedite pervoe zeloe chislo:'); readln(a); writeln('Vvedite vtoroe zeloe chislo:'); readln(b); if ((a mod 2) = 0) then repeat begin a:= a div 2; writeln(a); end; until ((a mod 2) =1) AND (a > 0) else while (a < b) do begin a:= a * 3; writeln(a); end;; readln(); end.
- Log in to post comments
- 697 reads