em moi hoc qua pascal co may dieu chua ro mong anh chi co kinh nghiem giup do:
em lam thu bai nay
Yêu cầu
Bạn hãy xác định xem nhà in cần bao nhiêu chữ số 0, 1, 2,..., 9.
Dữ liệu: DIGITS.INP
Dòng 1: M, N
Kết qủa: DIGITS.OUT
Gồm 10 dòng, tương ứng là số chữ số 0, 1, 2, ..., 9 tìm được
Giới hạn:
• 1 ≤ M ≤ N ≤ 10^9


program chu_so;
uses crt;

type mang=array[0..9] of longint;
var i,m,n:longint;
a:mang;
procedure demcs(so:longint);
var i,j:longint;
begin
j:=so;
repeat
i:=j mod 10;
j:=j div 10;
a[i]:=a[i]+1;
until j=0;
end;

begin
write('moi nhap lan luot hai so m,n: '; read(m); readln(n);
if m>n then begin write('ban da nhap sai';readln; exit; end
else for i:=m to n do demcs(i);
for i:=0 to 9 do writeln('chu so ',i,' duoc viet ',a[i],' lan.';
readln;
end.


nhung ma khi chay voi gia tri lon thi no khong ra. anh chi cho em hoi cach lam va lieu lam nhu em co dc diem ko