Viết chương trình đọc tệp NGUON. TXT gồm 2 số nguyên M,N (M<N). Ghi tên tệp DICH. TXT tất cả các giá trị trong đoạn (M, N) thỏa mãn là bội của 3 và 7

program bai_giai;
var f,g:text;
    m,n,i:longint;
begin
    Assign(f,'NGUON.TXT');  reset(f);
    Assign(g,'DICH.TXT');  rewirte(g);
    readln(f,m,n);
    for i:=m to n do
        if (i mod 3=0) and (i mod 7=0) then write(g,i,' ');
    close(f); close(g);
end.

Có thể thay (i mod 3=0) and (i mod 7=0) thành (i mod 21=0) vì chia hết cho 3 và 7 thì phải chia hết cho 21.

uses crt;
var  a : array[1..100] of integer;
 n,i,m : integer;
begin clrscr ;
assign(input,'nguon.txt');
assign(output,'dich.txt');
reset(input);            rewrite(output);
readln(input,m,n);
for i:=m to n do if ( i mod 3 = 0 ) and ( i mod 7 = 0) then write(output,i);
close(input);
close(output);
readln
end.