Перевод из десятичной системы счисления в двоичную - Pascal ABC
Формулировка задачи:
Написал программу для перевода в 2ю систему счисления,ответ выходит правильным ,но в обратном порядке ,как перевернуть его ?
Решение задачи: «Перевод из десятичной системы счисления в двоичную»
textual
Листинг программы
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.