Bài giải Pascal

Cách 1: sử dụng for lồng while. Để tránh lỗi nên gán
biến i=t, sau đó đếm t có mấy số 0

y:=0;

for a:=m to n do
begin
    x := 0;t:=a;
    while t<>0 do
       begin
        b := t mod 10;
        t := t div 10;
        if b=0 then x:=x+1;
       end;
    y:=y+x;
end;
writeln(y);

Cách 2: Sử dụng 2 while..do lồng nhau (như các em đã được chép)




và hãy sửa đổi một tí........ để tránh lặp vô hạn😂 

hãy giải thích tại sao lại....?