Tin học Giúp mình bài này với!

[Trần Gia Bảo 2703]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

 

[Bùi Thành Công]

bạn thử cách này xem

var fa,fd:text;
    n,m,i,j,d,s:longint;
begin
  assign(fa,'QUACAN.INP');reset(fa);
  assign(fd,'QUACAN.OUT');rewrite(fd);
  read(fa,n,m); d:=0;
  if n>m then n:=m;
  for i:=n downto 1 do
  begin s:=m;
    for j:=i downto 1 do s:=s mod i;
    if s=0 then inc(d);
    end;
  write(fd,d);
  close(fa);close(fd);
end.