Pagini recente » Cod sursa (job #2009683) | Cod sursa (job #739403) | Cod sursa (job #676517) | Borderou de evaluare (job #1119517) | Cod sursa (job #172989)
Cod sursa(job #172989)
var
f:text;
a1,b1,a2,b2,a3,b3,s,st,i,j,y,k:int64;
begin
assign(f,'plus.in');reset(f);
read(f,s);
read(f,b1,a1);read(f,b2,a2); read(f,b3,a3);
close(f);
k:=0;
for i:=0 to b1 do
for j:=0 to b2 do
for y:=0 to b3 do
begin
st:=i*a1+j*a2+y*a3;
if st=s then k:=k+1;
end;
assign(f,'plus.out');rewrite(f);
write(f,k);
close(f);
end.