Задача 13 Урок 13.1
Primary tabs
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3; N := 15;
var M, N :integer; begin write('vvedi chislo M '); readln(M); write('vvedi chislo N '); readln(N); if((M mod 2) = 0) then while((M mod 2) = 0) do begin M := M div 2; writeln(M , ' '); end else while(M < N) do begin M := M * 3; writeln(M , ' '); end; readln(); end.
- Log in to post comments
- 822 reads
vedro-compota
Sun, 08/01/2021 - 12:56
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)