Kết quả tìm kiếm

Ý tưởng: Biến số i thành xâu j rồi so sánh xâu s để tìm số nhỏ nhất. uses crt; var a,b,k,i:longint; s,j:string; begin clrscr; read(a,b,k); s:=':'; for i:=a to b do if i mod k=0 then begin str(i,j)...