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