Урок 13.2 Задание 4
Primary tabs
Пользователь вводит число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице), например:
если ноль, то все кости справа:
▶
---++++++++++
если три, то значащая часть слева, а все отстальное справа:
▶
+++---+++++++
если девять:
▶
+++++++++---+
var a, i : integer; begin write('vvedite chislo : '); readln(a); for i := 0 to 10 do begin if i < a then write('+') else if i = a then write('---') else write('+'); end; readln(); end.
Консоль:
vvedite chislo : 3 +++---+++++++
- Log in to post comments
- 306 reads