Question

Dana jest liczba naturalna a. Napisz program przedstawiający binarną postać danej liczby naturalnej. (programowanie strukturalne - procedury/funkcje)

Wejście

Liczba naturalna a,

Wyjście

Postać binarna danej liczby

Przykład

Dla danych wejściowych:

196

poprawną odpowiedzią jest:

196(D) = 11000100(B)

pętla repeat i for

Answer 1

program system_dwojkowy;
        var
        a:integer;

procedure bin(liczba:integer);
begin

        if (liczba >= 2) then
                bin(liczba div 2);
        write(liczba mod 2);

end;

begin

        writeln('Podaj liczbe naturalna: ');
        readln(a);
        write(a,'(D)=');
        bin(a);
        write('(B)');

readln;
end.