Написать программу на языке Pascal по следующему алгоритму:
1. получить 2 целых числа.
2. сравнить числа.
3. вывести на экран наибольшее число.

// PascalABC.NET 3.2, сборка 1403 от 16.03.2017
// Внимание! Если программа не работает, обновите версию!

function SumDigits(n:integer):integer;
begin
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray;
  var i:=s.IndexMax;
  var k:=s.Where(x->x=s[i]).Count;
  case k of
    1:begin
      Write('Сумма цифр наибольшая у ');
      case i of
        0:Write('первого');
        1:Write('второго');
        2:Write('третьего');
        end;
      Writeln(' числа')
      end;
    2:begin
      Write('Сумма цифр наибольшая у ');
      if s[0]=s[1] then Writeln('первого и второго чисел')
      else
        if s[0]=s[2] then Writeln('первого и третьего чисел')
        else Writeln('второго и третьего чисел')
      end;
    3:Writeln('Суммы цифр у всех трех чисел равны')
    end
end.

Примеры
Вводите: 102030 324 19
Сумма цифр наибольшая у третьего числа

Вводите: 16453 4320 56341
Сумма цифр наибольшая у первого и третьего чисел

Вводите: 12345 12354 54321
Суммы цифр у всех трех чисел равны

1.

2-й игрок получает информацию о том, на какую клетку походил первый. Так как это уже третий ход первого, значит перед этим были заняты 4 клетки (два хода первого + два хода второго). Это значит, что перед 3-м ходом первого свободны 25 - 4 = 21 клетка. Для кодирования информации об одной из 21 клеток нужно 5 бит (решаем неравенство N<=2^i, подбирая минимально возможное значение i)
ответ: 5 бит

2.

1/512 Мбайт = (1024/512) Кбайт = 2 Кбайт = 2048 байт
Всего 2048 символов, значит, для кодировки одного символа нужен 1 байт .
1 байт = 8 бит
С бит можно закодировать 2^8=256 символов
ответ: размер алфавита 256 символов

3.

Для кодировки каждого символа 16-символьного алфавита нужно 4 бит
(решаем неравенство 16<=2^i, подбирая минимально возможное значение i). Далее, одна страница текста содержит 30 * 50 = 1500 символов.
6 страниц текста содержат 6 * 1500 = 9000 символов.
Весь текст содержит 9000 символов * 4 бит = 36000 бит = 4500 байт (приблизительно 4,39 Кбайт)

ответ: 4500 байт

 

Примеры:

  - система автоматической терморегуляции поддерживает заданную температуру (управляющее устройство получает информацию от температурных датчиков, обрабатывает ее - сравнивает реальную температуру с заданной, и передает команды нагревательному элементу - усилить или уменьшить нагрев) - например в кондиционерах
  - система программного управления обеспечивают стирку в стиральной машине в заданном режиме
  - система записи звука в диктофоне
  - система управления станком с ЧПУ (числовым программным управлением)