131 в 10-чной= 10000011 в 2-чной 131/2=65 и остаток 1 65/2=32 и остаток 1 32/2=16 и остаток 0 16/2=8 и остаток 0 8/2=4 и остаток 0 4/2=2 и остаток 0 2/2=1 и остаток 0
218 в 10-чной=11011010 в 2-чной 218/2=109 и остаток 0 109/2=54 и остаток 1 54/2=27 и остаток 0 27/2=13 и остаток 1 13/2=6 и остаток 1 6/2=3 и остаток 0 3/2=1 и остаток 1
777 в 10-чной = 1100001001 в 2-чной 777/2=388 и остаток 1 388/2=194 и остаток 0 194/2=97 и остаток 0 97/2=48 и остаток 1 48/2=24 и остаток 0 24/2=12 и остаток 0 12/2=6 и остаток 0 6/2=3 и остаток 0 3/2=1 и остаток 1
1011100 в 2-чной = 1*2^6+0+1*2^4+1*2³+1*2²+0+0=64+16+8+4=92 в 10-чной
100100 в 2-чной = 1*2^5+0+0+1*2²+0+0=32+4=36 в 10-чной.
Const n = 5; var a,b : array [1..n] of integer; i,s,k1,k2,max,min : integer;
begin for i := 1 to n do readln (a[i]); for i := 1 to n do writeln (i,')elem = ',a[i]); end.
begin for i := 1 to n do a[i] := i * 3; for i := 1 to n do writeln (i,')elem = ',a[i]); end.
begin s := 0; for i := 1 to n do begin readln (a[i]); s := s + a[i]; end; writeln (s); end.
begin k1 := 0; k2 := 0; for i := 1 to n do begin readln (a[i]); if a[i] > 0 then k1 := k1 +1; if a[i] < 0 then k2 := k2 +1; end; writeln ('+ ',k1); writeln ('- ',k2); end.
begin k1 := 0; k2 := 0; for i := 1 to n do begin readln (a[i]); if (a[i] > 0) and (i mod 2 = 1) then k1 := k1 +1; if (a[i] < 0) and (i mod 2 = 0) then k2 := k2 +1; end; writeln ('+ ',k1); writeln ('- ',k2); end.
begin for i := 1 to n do begin readln (a[i]); if a[i] < 0 then b[i] := sqr (a[i]); if a[i] > 0 then b[i] := a[i] * a[i] * a[i]; end; for i := 1 to n do write (a[i],' '); writeln (); for i := 1 to n do write (b[i],' '); end.
begin for i := 1 to n do readln (a[i]); max := a[1]; min := a[1]; for i := 2 to n do begin if a[i] > max then max := a[i]; if a[i] < min then min := a[i]; end; writeln ('max=',max); writeln ('min=',min); end.
begin for i := 1 to n do readln (a[i]); writeln ('found :'); readln (s); k1 := 0; k2 := 0; for i := n downto 1 do if a[i] = s then begin k1 := k1 + 1; k2 := i; end; writeln ('k=',k1); writeln ('i=',k2); end.
Бери те переменные, которые используются в конкретной программме.
131/2=65 и остаток 1
65/2=32 и остаток 1
32/2=16 и остаток 0
16/2=8 и остаток 0
8/2=4 и остаток 0
4/2=2 и остаток 0
2/2=1 и остаток 0
218 в 10-чной=11011010 в 2-чной
218/2=109 и остаток 0
109/2=54 и остаток 1
54/2=27 и остаток 0
27/2=13 и остаток 1
13/2=6 и остаток 1
6/2=3 и остаток 0
3/2=1 и остаток 1
777 в 10-чной = 1100001001 в 2-чной
777/2=388 и остаток 1
388/2=194 и остаток 0
194/2=97 и остаток 0
97/2=48 и остаток 1
48/2=24 и остаток 0
24/2=12 и остаток 0
12/2=6 и остаток 0
6/2=3 и остаток 0
3/2=1 и остаток 1
1011100 в 2-чной = 1*2^6+0+1*2^4+1*2³+1*2²+0+0=64+16+8+4=92 в 10-чной
100100 в 2-чной = 1*2^5+0+0+1*2²+0+0=32+4=36 в 10-чной.
(^ - это степень.)