Составить алгоритм нахождения(это нужно делать в паскале) 1) меньшего из двух чисел 2)меньшего из трех чисел

1. Меньшее из 2-х:

program Minimum;

var
  a, b: integer;

begin
  write('введите 2 числа: ');
  readln(a, b);
  if a < b
    then writeln('минимум: ', a)
  else writeln('минимум: ', b);
end.

2. Меньшее из 3-х с функции:

var
  x1, x2, x3, mn: integer;

function min(a, b: integer): integer;
begin
  if a < b
    then min := a
  else min := b
end;

begin
  write('введите 3 числа: ');
  readln(x1, x2, x3);
  mn := min(x1, min(x2, x3));
  writeln('минимум: ', mn);
end.

9 килобайт = 9216 байт.
Зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. В условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. Также мы знаем количество символов в одной строке. Умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. И, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице.

1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы.

2) 1 × 48 = 48 (байт) – информационный объём одной строки.

3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице.

ответ: на каждой странице помещается 32 строки.

ПРАВИЛЬНЫЙ ОТВЕТ – 3) 32

9 килобайт = 9216 байт.
Зная информационный объём рассказа и количество страниц, найдём информационный объём одной страницы. В условии сказано, что каждый символ кодируется 8 битами, т.е. одним байтом. Также мы знаем количество символов в одной строке. Умножив 1 байт на количество символов в строке, найдём информационный объём одной строки. И, наконец, разделив информационный объём страницы на информационный объём строки, найдём количество строк на странице.

1) 9216 : 6 = 1536 (байт) – информационный объём одной страницы.

2) 1 × 48 = 48 (байт) – информационный объём одной строки.

3) 1536 : 48 = 32 (стр.) – количество строк на каждой странице.

ответ: на каждой странице помещается 32 строки.

ПРАВИЛЬНЫЙ ОТВЕТ – 3) 32