Урок 13.2. Задача 5.

Урок 13.2. Задача 5.

Задание: визуализируйте на счетах введенное пользователем число.

var a, b, d : longint;
    c, i, j : integer;
begin
  b := 1000000; // делитель
  readln(a);
  for i := 1 to 7 do
  begin
    repeat
      c := c + 1; // для единичного прохода цикла
      d := a div b; // добираемся до введенного числа
      b := b div 10; // сокращаем делитель
      if d > 0 then
        d := d mod 10; // первая цифра числа
      write(d);
    until c = i;

    for j := 0 to 10 do
    begin
      if j < d then // вывод элемента если значение цикла меньше искомого
        write('+')
      else
        if j = d then // вывод разделителя при совпадении значений
          write('---')
        else
          write('+'); // заполнение строки
    end;
    writeln();
  end;
  readln();
end.