Четырехзначное шестнадцатиричное число содержит четыре двоичные тетрады, старшая (левая) из которых может быть неполной. Наименьшее число будет иметь 1 в старшей тетраде и за ней должны следовать пять нулей. Получаем:
1 0000 0111 1111(2)=107F(16)
Var x,y,c,k,i,a,b:integer;
begin
readln(x,y,a,b);
If (x mod 2=0) or (y mod 2=0) then
c:=(x+y) div 2
else
c:=x mod y;
For i:=1 to 15 do
k:=k+i;
While x<=100 do
x:=x*2;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln(c,' ',k,' ',x,' ',a,' ',b);
end.
Cat.jpeg, foto.bmp, dog.gif, <span>war.wmf</span>
Var
i:integer;
a:array[4..9]of integer;
begin
writeln('Исходный массив:');
for i:=4 to 9 do
begin
a[i]:=random(1,10);
write(a[i]:4);
end;
for i:=4 to 9 do
if a[i]<5 then a[i]:=a[i]-1;
writeln;
writeln('Преобразованный массив:');
for i:=4 to 9 do
write(a[i]:4);
<span>end.</span>