Технический форум - Задача на языке Паскаль.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача на языке Паскаль. (http://www.tehnari.ru/f41/t32254/)

ypaxapa

21.01.2010 11:34

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

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

Vladimir_S

21.01.2010 11:41

Цитата:

Сообщение от ypaxapa (Сообщение 284528)

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

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

AlexZir

21.01.2010 12:14

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

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

ypaxapa

21.01.2010 12:40

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

Vladimir_S

21.01.2010 12:40

Цитата:

Сообщение от AlexZir (Сообщение 284544)

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

Код:

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

21.01.2010 12:45

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

Часовой пояс GMT +4, время: 02:50.