Ответ(ы) на вопрос:
Гостьvar b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
b[i] := a mod 2;
a := a div 2;
end;
n := i;
for i := n downto 1 do write(b[i]);
end.
Проверено:)
Не нашли ответ?
Похожие вопросы