Плз информатика 6 класс
реши .
веселые человечки решили сходить в поход.
пончик испёк для всех пирожки с мясом, яблоками, капустой и повидлом и разложил их по пакетам, кулькам и коробкам.
пирожков с мясом оказалось 2 коробки, 2 кулька и 9 пакетов.
пирожков с яблоками — 9 пакетов, 1 кулёк и 2 коробки.
пирожков с повидлом — 6 кульков и 1 коробка.
пирожков с капустой — 2 пакета, 1 коробка.
в коробку вмещается 18 пирожков, в пакет — 22, в кулёк — 19.
сколько всего пирожков испёк пончик и сколько пирожков было уложено в упаковку каждого вида?

ответ: ? пирожков испек пончик, в коробках ? пирожков, в пакетах ? пирожков и в кульках ? пирожков.

1.

1) 4*24*1000*16 ≈ 3*2^19 (бит/с)

2) 900 Мбайт=9*25*4*2^23 бит =9*25*2^25 бит

3) (9*25*2^25) / (3*2^19) = 3*25*2^6 (c) = 75*64 (c) =75*64/60 (мин)= 80(мин)                                

ответ  80 мин

2.

1)  640*480=(5*2^7)*(15*2^5)=5*15*2^12 пикселей

2) 240 Кбайт=15*2^4 *2^13 бит=15*2^17 бит

3) (15*2^17) / (5*15*2^13) = 2^4 / 5  бит =3,2 бит = 3 бит - 1 пиксель

4) 2^3=8 цветов                ответ 8 цветов

3.

1) 80 *0,7=56 Мбайт - cжатый файл

 80 Мбайт =5*2^4 *2^23 бит=5*2^27 бит

  56 Мбайт=7*2^26 бит

2)  5*2^27 / 2^22 = 5*2^5 (с) = 160 секунд - время несжатого файла

3)  7*2^26 / 2^22 =7*2^4 (c) = 112 (c)

4) 23(c)+12(c)+112(c)= 147 (c) - время сжатого файла

5) 160-147=13 (с)    ответ передача сжатого файла быстрее на 13 с

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.