mam takie zadanie moze ktos wie jak je zrobic??
Napisz program, który wyznaczy ośmiobitową reprezentację dwójkową liczby całkowitej.
Wejście
Pierwszy i jedyny wiersz wejścia zakończony znakiem nowej linii zawiera liczbę całkowitą z zakresu 0..255.
Wyjście
Pierwszy i jedyny wiersz wyjścia zakończony znakiem nowej linii powinien zawierać osiem cyfr z zakresu 0..1.
Przykład
Dla danych wejściowych:
6
poprawną odpowiedzią jest wynik:
00000110
z gory dzieki !!
padla juz jedna propozycja co do tego programu ale moim zdaniem on chyba pod c++ napisany bo NIE MA np. readlen(liczba) zeby wrowadzic liczbe i po przepisaniu niedziala!! a oto on:
FUNCTION Dec2Bin(Dec:Byte):STRING;
VAR
B1, i :Integer;
Bin, BinDigit:STRING;
BEGIN
BinDigit:='01';
Bin:='';
for i := 8 downto 1 do
begin
B1:=Dec MOD 2;
Dec:=Dec DIV 2;
Bin:=Concat(BinDigit[B1+1], Bin);
end;
Dec2Bin:=Bin;
END; { Dec2Bin }