4. <span>10 1101 0011(2)=1*2^9+0*2^8+1*2^7+1*2^6+0*2^5+1*2^4+0*2^3+0*2^2+1*2^1+1*2^0=
512+128+64+16+2+1=723
</span><span>1323(8)= 1*8^3+3*8^2+2*8^1+3*8^0=512+192+16+3=723
</span><span>2D3(16)= 2*16^2+16*16^1+3*16^0=512+208+3=723
</span>
5.+<span>10 0011 1110(2)
</span><span> 1011 1111(2)=
</span> 111111 1111
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
Uses crt;
var a:integer;
begin
readln(a);
if (a mod 10)>(a div 100) then writeln('3>1');
if (a mod 10)<(a div 100) then writeln('1>3');
end.
Uses crt;
var pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
pr:=pr*i;
writeln(pr);
end.