Укажите сумму чисел, которые программа выведет на экран.
```
var x, L, M: longint;
begin
x := 727;
L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
if x mod 2 = 0 then
M:= M + (x mod 8) div 2;
x:= x div 8;
end;
writeln(L); write(M);
end.
```
Инициализация переменных:
x := 727; — начальное значение переменной x.L := 0; — счетчик, который будет увеличиваться на 1 в каждой итерации цикла.M := 0; — переменная, в которую будет суммироваться результат.Цикл while:
Цикл будет выполняться, пока x > 0. В каждой итерации:
L наx четным (if x mod 2 = 0).x четное, то добавляем к M значение (x mod 8) div 2...
Внутри — полный разбор, аргументация, алгоритм решения, частые ошибки и как отвечать на каверзные вопросы препода, если спросит
Попробуй решить по шагам
Попробуй один шаг и продолжи в режиме обучения или посмотри готовое решение
Не нашел нужную задачу?