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.