var liczba: integer; napis: string; begin Write('Liczba dziesietna: '); ReadLn(liczba); napis := ''; repeat if (liczba and 1) = 0 then napis := '0' + napis else napis := '1' + napis; liczba := liczba shr 1; until liczba = 0; WriteLn('Liczba binarna: ', napis);
var
liczba: integer;
napis: string;
begin
Write('Liczba dziesietna: ');
ReadLn(liczba);
napis := '';
repeat
if (liczba and 1) = 0 then
napis := '0' + napis
else
napis := '1' + napis;
liczba := liczba shr 1;
until liczba = 0;
WriteLn('Liczba binarna: ', napis);
end.