Задача 5 Урок 13.2
Primary tabs
В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с
7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль)
они выглядят так:---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++Задание: визуализируйте на счетах введенное пользователем число.
Примеры:
Пользователь вводит: 7
Получаем:---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ +++++++---+++Пользователь вводит: 28
Получаем:---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ---++++++++++ ++---++++++++ ++++++++---++Пользователь вводит: 1984
Получаем:---++++++++++ ---++++++++++ ---++++++++++ +---+++++++++ +++++++++---+ ++++++++---++ ++++---++++++Пользователь вводит: 2021
А наша программа отвечает:---++++++++++ ---++++++++++ ---++++++++++ ++---++++++++ ---++++++++++ ++---++++++++ +---+++++++++
var i, j: integer; a, b, c, e: longint; begin writeln ('Vvedite celoe polozhitelnoe chislo'); readln(e); c := 1000000; for i := 1 to 7 do begin a := e div c; b := e mod c; for j := 1 to a do write('+'); write('---'); for j := 1 to (10 - a) do write('+'); e := b; c := c div 10; writeln(); end; end.
КОНСОЛЬ
Vvedite celoe polozhitelnoe chislo 5555555 +++++---+++++ +++++---+++++ +++++---+++++ +++++---+++++ +++++---+++++ +++++---+++++ +++++---+++++
- Log in to post comments
- 1181 reads
vedro-compota
Sun, 11/07/2021 - 13:02
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)