Задача на языке Паскаль.

[ypaxapa]

Задача на языке Паскаль.

Уважаемые, задача такова : Найти наибольшую степень числа 2, делящую данное целое число a. Язык паскаль.

 

[Vladimir_S]

Уважаемые, задача такова : Найти наибольшую степень числа 2, делящую данное целое число a. Язык паскаль.

Поясните, пожалуйста, что значит "делящую"?

 

[AlexZir]

Интересная формулировка задачи, сумбур на сумбуре. Возможно речь идет о числе, являющемся 2 в максимальной степени, такой, что оно делит данное целое число. Тут я бы добавил еще фразу "без остатка", но в оригинале такого нет.

По формулировке, данной топикстартером, любая степень 2 будет делить произвольное целое число, правда, дробная часть будет различаться количеством разрядов.

 

[ypaxapa]

да... так как нам наши лабораторные работы не поясняют, стоит полагать что делить должно именно что без остатка

 

[Vladimir_S]

Интересная формулировка задачи, сумбур на сумбуре. Возможно речь идет о числе, являющемся 2 в максимальной степени, такой, что оно делит данное целое число. Тут я бы добавил еще фразу "без остатка", но в оригинале такого нет.

Ну если так, то, например, таким образом:

VAR
 A,B,n:WORD;
BEGIN
 Write('A= ');
 ReadLn(A);
 B:=A;
 n:=0;
 Repeat
  A:=B;
  B:=A div 2;
  If (A mod 2)=0 then INC(n);
 Until ((A mod 2)>0) or (B=1);
 WriteLn('n= ',n);
 ReadLn;
END.

 

[ypaxapa]

Vladimir_S и AlexZir... премного благодарен. Думаю это как раз то что надо.