binarna.txt

(0 KB) Pobierz 
program liczba_binarna;
uses Crt;
var n,x,i :integer;
W: array[0..30] of integer;

begin
writeln('Podaj n');
readln(n);
x:=n;
i:=30;
while i>0 do
W[i] :=0;
i:=i-1;
end.
begin
i:=30
repeat
W[i] :=x mod 2
x:=x div 2
i:=i-1
until x=0

writeln('W[i+1]);
readln();
end;
end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin