Задача 4 урок 13.2

Задача 4 урок 13.2

Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице):

если ноль, то все кости справа:

---++++++++++

если три, то значащая часть слева, а все отстальное справа:

+++---+++++++

если девять:

+++++++++---+

Решение:

program   task_4_lesson_13_2;
var n, m, a, i : integer;
begin
  writeln('vvedite chislo');
  readln(a);   // пользователь вводит число
  n := 11;     // всего элементов
  m := 1;
  while m <= a do    // пока больше 1 делаем ...
     begin
       write('+');
       m += 1;
     end;
  write('---');      // отделяем нужное число "+" элементом "---"
  n := n - (a + 1);  // считаем сколько элементов осталось от максимума (от 11)
  for i := 1 to n do
      write('+');    // заполняем остаток
  readln();
end.