Перевод из десятичной системы счисления в двоичную - 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.

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы