Question

Ниже записан алгоритм. Укажите
наименьшее из таких чисел x, при
вводе которых алгоритм печатает сначала 4, а потом 0.

var x, a,
b, c: integer;

begin

 
readln(x);

 
a:= 0; b:= 0;

 
while x > 0 do begin

   
c:= x mod 2;

   
if c = 0 then a:= a + 1

   
else b:= b + 1;

   
x:= x div 6;

 
end;

 
writeln(a);

 
writeln(b);

end.





 

Answer 1

x=432
Пример на VBA Excel
Код программы можно посмотреть нажав Alt+F11

9483d58035698c41811190cad2c3831e.xls