Page 158 - C:\Users\Admin\Desktop\Sach mem upweb\
P. 158
100 Problems & Solutions Trang 158
end;
procedure ghif;
var f :text;
begin
assign(f,fo);
rewrite(f);
write(f,kq);
writeln('So lan lap :',lap);
close(f);
end;
BEGIN
{tao_test;}
time:=clock;
lam;
ghif;
writeln((clock-time)/18.2:10:10);
END.
Bài 92/2002 - Dãy chia hết
(Dành cho học sinh THPT)
program DayChiaHet;
uses crt;
const inp='div.inp';
out='div.out';
var a:array[0..1] of set of byte;
g:text;
k,n,t,i,j,l:longint;
function f(x:longint):byte;
begin
x:=x mod k;
if x<0 then f:=x+k else f:=x;
end;
begin
clrscr;
assign(g,inp);reset(g);
readln(g,n,k);
t:=0;
read(g,j);
a[0]:=[f(j)];
for i:=2 to n do
begin
t:=1-t;
a[t]:=[];
read(g,j);
for l:=0 to k-1 do
if l in a[1-t] then
begin
a[t]:=a[t]+[f(l+j)];
Tin học & Nhà trường 100 Đề Toán - Tin học
