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

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

Подготовительная задача для "счет"

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

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

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

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

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

если девять:

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

Решение:

program u13z04;
var i,j,n,m: integer;
begin
  write('Vvedite chislo : ');
  readln(n);
  m:=13;
  j:=1;
  while j<=m do
  begin
    if (j<=n)or(j>(m-(10-n))) then
      write('+ ')
    else
      write('- ');
    j:=j+1;
  end;
  readln();
end.

Консоль:

Vvedite chislo : 7
+ + + + + + + - - - + + +