Задача 5 Урок 13.2
Primary tabs
Задание: визуализируйте на счетах введенное пользователем число.
var i, j,a, b, c, e: integer; 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; readln(); end.
Вывод консоли:
Vvedite celoe polozhitelnoe chislo 1234567 +---+++++++++ ++---++++++++ +++---+++++++ ++++---++++++ +++++---+++++ ++++++---++++ +++++++---+++
- Log in to post comments
- 120 reads