1. Представьте в восьмиразрядном формате прямой код числа -95 2. Найдите десятичный эквивалент числа представленного в дополнительном коде 11100111

Оба задания с решением, заранее

#1:

 

const
Count = 3; // количество проверяемых чисел

 

var
m : array [1..Count] of Integer;
i, e, c: Integer;
begin

Writeln('Введите числа:');
for i := 1 to Count do
begin
Write(i ,': '); Readln( m[i] );
end;

for i := 1 to Count do
for e := 1 to Count do
if m[i] < m[e] then
begin
c := m[i];
m[i] := m[e];
m[e] := c;
end;

for i := 1 to Count do
Write(m[i], ' ');

Readln;
end.

 

#2:

 

var
a, b, c, x, y: Integer;
begin

Writeln('Введите рёбра кирпича:');
Write('a: '); Readln( a );
Write('b: '); Readln( b );
Write('c: '); Readln( c );

Writeln('Введите стороны отверстия:');
Write('x: '); Readln( x );
Write('y: '); Readln( y );

x := x*y;

if (a*b <= x) or (a*c <= x) or (b*c <= x) then
Write('Пройдёт.')
else
Write('не пройдёт.');

Readln;
end.

 

На каждой итерации цикла x div 100 убирает 2 цифры числа x с конца и к a прибавляется 1.

 Тогда если a = 2 значит x лежит в диапазоне от 100 до 9999. Например при x=100 на первой итерации a=a+1=1 ,x=x div 100=1, 1>0 цикло продолжается a:=a+1=2; x:=x div 100=0. При x=9999 на первой итерации a=a+1=1 ,x=x div 100=99, 99>0 цикло продолжается a:=a+1=2; x:=x div 100=0.

 К переменной b прибавляется 2 последние цифры числа x. Если в числе x будет четыре цифры то после первой итерации в числе x останется 2 цифры. Это значит что даже при минимальном четырехзначном числе x=1000 b=b+(10 mod 100)=b+10=10 мы получим значение большее 8. Значит нам подходят только трехзначные числа. Чтобы число было максимальным ставим 8 в сотни:800.