1833 будет <span>110001 111000 110011 110011
-1833 будет </span><span>101101 110001 111000 110011 110011
</span>
2. А10= 664(10)=1010011000(2)=1230(8)=298(16)
1. <span>А2 =101110=46
А8 = 621=401
А16 =64C=1612
</span>
Var
mas : array [1..5] of longint;
sum : longint;
i: byte;
begin
for i:=1 to 5 do
begin
read (mas[i]);
if (mas[i] mod 4 = 0) and (mas[i] mod 10 = 6) then sum:=sum+mas[i];
end;
writeln (sum);
end.
<span>var a,b,i,s:integer;
begin
readln(a,b);
if a>b then begin s:=a; a:=b; b:=s; end;
s:=0;
for i:=a to b do
if (i>0)and(i mod 4=0) then s:=s+i;
writeln('s = ',s);
end<span>.
Пример:
30 -10
</span><span>s = 112</span></span>