Первая цифра числа, процедуры Опции

[Провинциалка]

Ребята! Кто-может, подскажите, пожалуйста, а то уже мозги кипят и я на грани нервного срыва. Задачка для первоклассников: "Найти первую цифру целого числа (использовать процедуру)",
а не могу понять часть текста в ней.

Program cifra;
var
k,n:integer;
begin
write('Введите число: ');
readln(n);
while n<>0 do
begin
k:=n mod 10; {???}
n:=n div 10; {???}
end;
writeln(‘Первая цифра числа’,k);
readln
end.

Как понять следующее: k:=n mod 10;
n:=n div 10
Почему так???

Сообщение отредактировано: Lapp - 6.11.2010 5:21

[Lapp]

М

Провинциалка, называй темы в соответствии с Правилами, пожалуйста