ответы на вопросы по информатике

3. контрольные вопросы:
1. что такое презентационная графика и программа презентационной графики?
2. какие возможности имеет программа ms powerpoint?
3. как загрузить программу ms powerpoint? как просмотреть презентацию на экране?
4. как задать цвета линий и заливки для рисования? какие виды сложной заливки вы знаете?
5. как добавлять слайды в презентации? какие макеты слайдов вы знаете?
6. в каких режимах можно просмотреть презентацию? как задавать фон для оформления слайдов?
7. как задать эффекты для смены слайдов? какие эффекты для смены слайдов вы знаете?
8. как задавать анимационные эффекты для частей слайдов? какие параметры эффектов вы знаете?
9. какие эффекты анимации вы знаете? к каким группам они относятся?

купить есть выигрышная стратегия своим первым входом 5/5 камней и второй куртке после чего в каждой кучке становится поровну камней после этого возьмет несколько камней из какой-то кучки и петь сможешь взять столько же камней из другой кучки чтобы в кочках опять стало поровну камней рано или поздно Вася возьмет все камни с какой-то кучки тогда пейте возьмет все камни из оставшихся кочки и победит если есть три кучки в Одессе камней то первым входом Петя берёт все камни из какой-то корочки после чего действует Аналогично предыдущему случаю в этом случае у Васи есть выигрышная стратегия Будем считать что кошки пронумерованы если Петя взял несколько камней из кучки один-то Вася своим ходом берёт столько же камней и 2 кошечки Аналогично если Петя берёт несколько камней из из 2 kutikita Вася своим ходом берёт столько же камни из первой кучке тоже самое средней четвертыми кучками если своим ходом дети берут камни из одной них-то Вася после этого берёт столько же камней из другой нетрудно видеть что после каждого хода Васи в 1,2 пучках будет поровну камней и в-третьих в-четвёртых будет поровну камней А значит рано или поздно победит вася

Сначала надо избавиться от ошибок (пункт №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.