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

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
Почему так???

Для положительных чисел так:
mod - остаток при делении
div - целая часть деления

Очевидно, что остаток при делении целого положительного числа на 10 - это его последняя цифра.

Я попробовала написать вместо k:=n mod 10 просто K:=n - оказывается программа все равно правильно работает. Для чего нужен был mod, не понятно

Я тебе даже больше скажу:

readln(n);
while n > 9 do
  n:=n div 10;

writeln('Первая цифра числа = ', n);

тоже будет работать. Зачем здесь вообще K - непонятно.

Кстати, а процедура-то где?

Ну если Program заменить на procedure, а точку на запятую - будет подпрограмма)

М

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