Нужно написать программу. Задача из ГИА-9

Question

Напишите эффективную программу, которая по двум данным натуральным числам m и n, не превосходящим 30000, подсчитывает количество натуральных чисел с последней цифрой 0 на отрезке [m,n] (включая концы отрезка) 
Программа получает на вход два натуральных числа m и n, при этом гарантируется, что 1≤m≤n≤30000. Программа должна вывести одно число: количество натуральных чисел с последней цифрой 0 на отрезке [m,n]. 
 
Объясните пожалуйста, как это решается?

if m mod 10 = 0 then m := m mod 10 - 1 else m := m mod 10; 
n := n mod 10; 
WriteLn(n - m);

Почему так?

Дмитрий Белов · Accepted Answer

var 
n,m,i,k: integer; 
begin 
readln(m,n); 
k := 0; 
for i := m to n do 
if i mod 10 = 0 then 
inc(k); 
writeln(k); 
readln; 
end.

Светлана Козаченко · Answer

Var a,b,i,k:integer
 begin
 read(a,b);
 k:=0;
if (a>=1) and (b>=a) and (30000>=b) then
 begin 
 for i:=a to b do
 if i mod 2=0 then k:=k+1;
 end;
end.

Jh · Answer

придумать эффективный алгоритм. эффективно его реализовать. 
неэффективным будет перебор всех чисел от m до n с проверкой, есть ли 0 в конце. 
можно включить голову и подумать. посмотреть на разность n-m. 
комментарии отключены - больше не подскажу. 
по-моему, и так достаточно.

Anna Vaganyan · Answer

в цикле от m до n с шагом 10 увеличивать счетчик - тогда получите количество чисел, оканчивающийхся на 10

Софья · Answer

Эффективность должна быть не в программе, а в алгоритме! 
 
Если остаток от деления m на 10 = 0, то m = Целое от m / 10 - 1 иначе m = Целое m / 10 
n = Целое от n / 10 
Результат = n - m 
 
Вот и вся программа! 
Без циклов и прочих премудростей… 
На Паскале можно записать вот так: 
 
if m mod 10 = 0 then m := m mod 10 - 1 else m := m mod 10; 
n := n mod 10; 
WriteLn(n - m);