Укажите наибольшее натуральное число, при вводе которого эта программа напечатает сначала 3, потом – 6. С объяснением
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x > 0 do begin
L:=L + 1;
if (x mod 8) <> 0 then
M:= M + x mod 8;
x:= x div 8;
end;
writeln(L); write(M);
end.
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад