Перевод из десятичной системы счисления в двоичную - Pascal ABC

Формулировка задачи:

Написал программу для перевода в 2ю систему счисления,ответ выходит правильным ,но в обратном порядке ,как перевернуть его ?
uses crt;
var
a,b:integer;
 
begin
readln(a);
b:=a;
 
 
Repeat 
if (B mod 2)=0 then write('0') else write('1');
B:=b div 2;
until b=1;
if b=1 then writeln(1);
readkey;
end.


textual

Код к задаче: «Перевод из десятичной системы счисления в двоичную - Pascal ABC»

var
a,b:integer;
s:string; 
begin
readln(a);
b:=a;
 
s:=''; 
Repeat 
s:=Chr(Ord('0')+(B mod 2))+s;
B:=b div 2;
until b=1;
if b=1 then s:='1'+s;
Writeln(s);
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5

Источник