Пожаловаться
- 09.03.2015 04:08
- Информатика
- remove_red_eye 14364
- thumb_up 25
Ответы и объяснения 2
Var a:integer; s:string;
BEGIN
write('Введите число: ');
readln(a);
s:='';
while a>0 do
begin
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:=a div 2;
end;
writeln(s);
END.
Пример:
Введите число: 131
10000011
BEGIN
write('Введите число: ');
readln(a);
s:='';
while a>0 do
begin
if a mod 2=0 then s:='0'+s else s:='1'+s;
a:=a div 2;
end;
writeln(s);
END.
Пример:
Введите число: 131
10000011
Пожаловаться
- 01.01.1970 00:00
- thumb_up 23
Program num_sys;
Var n:integer;
res:string;
begin
readln(n);
while n div 2 0 do
begin
res:= res + n mod 2;
n:= n div 2;
end;
res:= res + 1;
write(res);
end.
Var n:integer;
res:string;
begin
readln(n);
while n div 2 0 do
begin
res:= res + n mod 2;
n:= n div 2;
end;
res:= res + 1;
write(res);
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы