Кто-нить понял о чём речь? Если да, то поясните
. Не пойму поставленной цели.
Полная версия: Задача на последовательность
Найти количество цифр в двоичном представлении N.
Кто-нить понял о чём речь? Если да, то поясните . Не пойму поставленной цели.
Кто-нить понял о чём речь? Если да, то поясните
. Не пойму поставленной цели.
число в (10) = 15; число в (2) = 1111 значит 4 цифры
16(10) = 10000(2), уже 5 цифр
Вот тебе и нужно найти, сколько цифр "0" и "1" понадобится для того, чтобы представить число N в 2-ной системе счисления...
16(10) = 10000(2), уже 5 цифр
Вот тебе и нужно найти, сколько цифр "0" и "1" понадобится для того, чтобы представить число N в 2-ной системе счисления...
То есть просто сделать прогу-переводилку в 2-ю систему исчисления?
Ну, по заданию просили НЕ само представление, а СКОЛЬКО ЦИФР оно займет... Это разные вещи, правда? Учись читать задания внимательно...
Код
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;
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;
Такпо-моему выглядит.
Опять чужой код? Что, у нас в FAQ-е взять не можешь? Это во-первых... А во-вторых, я же тебе сказал, что у тебя не это просили... Ты игнорируешь, что тебе пишут? Не боишься, что тебя начнут игнорировать? 
Цитата(volvo @ 26.12.2005 18:10) 
Ну, по заданию просили НЕ само представление, а СКОЛЬКО ЦИФР оно займет... Это разные вещи, правда? Учись читать задания внимательно...
Мде... Всё сложнее, чем я думал
...
var
n, i: integer;
begin
readln(n);
i := 0;
while ($0001 shl i) <= n do inc(i);
writeln(i, ' цифр');
end.
Volvo, если ты учишься, то где и на каком курсе(если не секрет) .
.
Гыгы фото его в профиле посмотри)) ... морские котики 
))))))))))))))))))))))))))))))))) 
)))))))))))))))))))))))))))))))))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.