Задача на последовательность, Объясните в чём смысл задачи Опции

[-Kosinus-]

Найти количество цифр в двоичном представлении N.
Кто-нить понял о чём речь? Если да, то поясните . Не пойму поставленной цели.

[volvo]

число в (10) = 15; число в (2) = 1111 значит 4 цифры
16(10) = 10000(2), уже 5 цифр

Вот тебе и нужно найти, сколько цифр "0" и "1" понадобится для того, чтобы представить число N в 2-ной системе счисления...

[Гость]

То есть просто сделать прогу-переводилку в 2-ю систему исчисления?

[volvo]

Ну, по заданию просили НЕ само представление, а СКОЛЬКО ЦИФР оно займет... Это разные вещи, правда? Учись читать задания внимательно...

[Гость]

Код

Function Dec2Bin (num: word): String;
var result: string;
    remainder: word;
    c: char;
begin
     result := '';
     while num <> 0 do
     begin
          remainder := num mod 2;
          num := num div 2; { или num := num shr 1 }
          c := chr (remainder + ord ('0'));
          result := c + result;
     end;
     Dec2Bin := result
end;

Такпо-моему выглядит.

[volvo]

Опять чужой код? Что, у нас в FAQ-е взять не можешь? Это во-первых... А во-вторых, я же тебе сказал, что у тебя не это просили... Ты игнорируешь, что тебе пишут? Не боишься, что тебя начнут игнорировать?

[Гость]

Ну, по заданию просили НЕ само представление, а СКОЛЬКО ЦИФР оно займет... Это разные вещи, правда? Учись читать задания внимательно...

Мде... Всё сложнее, чем я думал ...

[volvo]

var
  n, i: integer;

begin
  readln(n);

  i := 0;
  while ($0001 shl i) <= n do inc(i);

  writeln(i, ' цифр');
end.

[Гость]

Volvo, если ты учишься, то где и на каком курсе(если не секрет) .

[klem4]

Гыгы фото его в профиле посмотри)) ... морские котики )))))))))))))))))))))))))))))))))



Сообщение отредактировано: klem4 - 26.12.2005 18:55