Двоичная система счисления

@Yala1 · Регистрация: 18.10.2010

Author24 — интернет-сервис помощи студентам

Дано число, перевести его в двоичную систему счисления.

Я взял начальное число 57. Итог деления: 100111.
Итак, мне сейчас нужно поменять число наоборот 100111 на число 111001, как это сделать? Через mod 10?

Pascal

Program qq;
var k,n,c: integer;
begin
readln(n);
k:=1;
while n<>0 do
begin
c:=n mod 2;
n:=n div 2;
k:=k*10+0;
end;
writeln(k);
end.

@Puporev · 25.01.2011, 18:58

Сообщение от Yala1

мне сейчас нужно поменять число наоборот 100111 на число 111001,

Xчисла в СС кроме 10 пишут строку

Pascal

1
2
3

var n:string;
     i:byte;
     x:char;

перевернуть число

Pascal

for i:=1 to length(n) div 2 do
 begin
  x:=n[i];
  n[i]:=n[length(n)-i+1];
  n[length(n)-i+1]:=x;
 end;

@Yala1 · 25.01.2011, 19:52 **[ТС]**

мне в ABC ( не пойму немного

@SuPeR XaKer · 25.01.2011, 19:58

Pascal

Uses
 CRT;
Const
 a='01';
Var
 n:integer;
 s: string;
begin
write('Ââåäèòå ÷èñëî: ');
readln(n);
s := '';
repeat
 s := ((a[n mod 2 + 1]) + s);
 n := n div 2;
until (n = 0);
write(s);
readkey
end.

@Yala1 0 / 0 / 1 Регистрация: 18.10.2010 Сообщений: 42
	25.01.2011, 19:52 [ТС]	3
	мне в ABC ( не пойму немного 0

	25.01.2011, 19:58