Построить табличную модель по следующим данным:
Четыре туриста отправились путешествовать на разных видах транспорта.
Первый проплыл 50 км на теплоходе, проехал 40 км на поезде и пролетел 100 км на самолете. Второй проплыл 100 км на теплоходе и проехал поездом 20 км.
Третий пролетел на самолете 200 км и проехал поездом 10 км.
Четвертый проплыл на теплоходе 70 км и пролетел на самолете 150 км.
Стоимость проезда на поезде составляет 2 монеты за км, на пароходе – 3 монеты за км, на самолете – 5 монет за км.

Модель должна отображать какое расстояние проехал каждый и сколько он денег заплатил, какое расстояние все они вместе проехали на каждом виде транспорта и сколько это им стоило и сколько все туристы вместе заплатили за все виды транспорта.

const

 AOper: array [0..3] of string = ('+', '-', '*', '/');

var

 a, b, Oper: Integer;

 r: Real;

begin

 Randomize;    // инициализация датчика случайных чисел

 a := Random (1001);

 b := Random (1001);

 Oper := Random (4);

 case Oper of

 0: r := a + b;

 1: r := a - b;

 2: r := a * b;

 3:if b <> 0 then begin

     r := a / b;

   end else begin

     WriteLn ('Произошла ошибка при делении на ноль');

     Exit;

   end

 else r := -1;

 end;

 WriteLn (a);

 WriteLn (b);

 WriteLn (Aoper [Oper]);

 if (r >= 0) and (r - Trunc (r) = 0) then begin   // если в результате получилось положительное целое число

   WriteLn ('yes');

   WriteLn (r :6 :0);

 end else

   WriteLn (' no');

 ReadLn;

end.

Объяснение:

r - Trunc (r) // это выделение дробной части числа

Если три нуля значащие, значит число начинается с единицы. Поскольку любое число в развернутой записи есть сумма произведений, каждое из которых представляет собой произведение цифры, находящейся на n-й позиции на основание системы счисления, возведенной в степень n-1, то понятно, что чем больше по величине будут цифры в старших разрядах, тем больше будет само число.
В применении к двоичной системе это означает, что слева должны стоять все единицы, а справа - нули.
Получаем 11000(2)=1х2^4+1x2^3=16+8+=24(10) - тут символ ^ означает возведение в степень.
ответ: 24