Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.12.2015 14:44
- Информатика
- remove_red_eye 1138
- thumb_up 42
Ответы и объяснения 1
Var
n,n1:longint;
s:string;
i,k,m:integer;
begin
Write('Введите натуральное число: '); Readln(n);
s := ''; n1:=n;
while n > 0 do
begin
if Odd(n) then s:='1'+s else s:='0'+s;
n := n div 2
end;
k:=0; i:=1; m:=length(s);
while i<=m do begin
if s[i]='1' then k:=k+1;
i:=i+2
end;
Writeln(n1,'(10)=',s,'(2), единиц на нечетных местах- ',k)
end.
Тестовое решение:
Введите натуральное число: 15378
15378(10)=11110000010010(2), единиц на нечетных местах- 3
- 03.12.2015 01:10
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.