11101(2)=29(10)
10(2)=2(10)
29+2=31(10) = 11111(2)
29-2=27 = 11011(2)
29*2=58 = 111010(2)
11001(2) + 10(2) = 11111(2) =31(10)
10101(2) - 10(2) = 11011(2) = 27(10)
11101(2) * 10(2) = 111010(2) = 58(10)
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.
1000011101+101000010=1101011111
Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
<span>end.</span>