Question

Viết CT nhập vào 2 số M, N nguyên dương(0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N

Answer 1

uses crt;
var i,m,n:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
until (0<m) and (m<n);
writeln('Cac so la uoc cua 1000 trong khoang tu ',m,' den ',n,' la: ');
for i:=m to n do
if 1000 mod i=0 then write(i:6);
readln;
end.