Write a procedure that displays in a column all the digits of the number passed to it, starting with the last one.
| November 16, 2020 | education
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program ch0; uses crt; var k, z, i: integer; begin writeln (‘Enter a number’); read (k); z: = 0; while k> 0 do begin z: = z * 10; z: = z + (k mod 10); k: = k div 10; end; while z> 0 do begin i: = z mod 10; z: = z div 10; writeln (i, ”); end; end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
