По­лу­чив на вход на­ту­раль­ное де­ся­тич­ное число x, этот ал­го­ритм пе­ча­та­ет два числа: L и M. Ука­жи­те наи­боль­шее число x, при вводе ко­то­ро­го ал­го­ритм пе­ча­та­ет сна­ча­ла 5, а потом 8
var x, L, M: integer;
begin
readln(x);
L := 0;
M := 0;
while x>0 do
begin
M :=M+1;
if x mod 2 <> 0 then
L := L + 1;
x := x div 2;
end;
writeln(L)
writeln(M)
end.

hristina112    3   20.01.2021 10:59    0