Thuật toán:

 B1: Nhập N

 B2: Nếu (N mod 3=0) and (N mod 5=0) thì in '1', ngược lại thì '0'

 B3: Kết thúc

Chương trình:

program kiem_tra;

var f,g:text;

      n:integer;

begin

     Assign(f,'CHIAHET.INP');  reset(f);

     Assign(g,'CHIAHET.OUT');    rewrite(g);

     readln(f,n);

     if (n mod 3=0) and (n mod 5=0) then write(g,'1') else write(g,'0');

     close(f);  close(g);

end.

Thuật toán:

+ Đọc tệp CHIAHET.INP (ghi N vào).

+ Xét nếu (N mod 3 = 0) và (N mod 5 = 0) thì write(f1,'1').

+ Ngược lại thì ghi write(f1,'0').

+ Đóng tệp.

Chương trình:

uses crt;
var f,f1:text;
      n:int64;
begin
      clrscr;
      assign(f,'CHIAHET.INP'); reset(f);
      assign(f1,'CHIAHET.OUT'); rewrite(f1);
      read(f,n);
      if (n mod 3 = 0) and (n mod 5 = 0) then writeln(f1,'1')
      else writeln(f1,'0');
      close(f);
      close(f1);
      readln;
end.