Цифра числа
нач
цел число
число := 12576
цел таб цифры_числа[0:5]
цел индекс
индекс := 5
цел цифра
нц 5 раз
цифра := mod(число,10)
число := div(число,10)
цифры_числа[индекс] := цифра
индекс := индекс - 1
кц
индекс := 1
нц 5 раз
вывод "цифра ",индекс," ",цифры_числа[индекс],нс
индекс := индекс + 1
кц
кон
Свидетельство о публикации №123121406216