买小猫小狗

【试题描述】
某动物饲养中心用X元专款购买小狗(每只A元)和小猫(每只B元)两种小动物。
要求专款专用,(至少猫狗各一),正好用完?请求出方案的总数。如没有请输出0.
【输入描述】
输入一行，只有三个整数.分别为X,A,B. ( 100 < X < 32768; 1 <= A, B <= 100 )
【输出描述】
输出只有一行（这意味着末尾有一个回车符号），包括1个整数。
【输入样例】
1700 31 21
【输出样例】
3
【解题提示】
请大家注意了，务必要用一重循序，不然会超时！！！！
谁教教我哦！！！
解下题啦！！

暴搜。

var
a,b,c,d,e,f:longint;
begin
read(a,b,c);
d:=0;
for e:=1 to (a div b) do
for f:=1 to (a div c) do
if a=e*b+f*c then
begin
d:=d+1;
end;
writeln(d);
end.

但是是错的

我快被这题搞死了。。。好想听三大禁曲~~

我想到了扩展欧几里得。。。。不是吧。。。。

var
a,b,c,d,e,f,g:longint;
begin
read(a,b,c);
d:=0;
g:=a div b;
for e:=1 to g do
begin
f:=a-e*b;
if (f>0) and (f mod c=0) then d:=d+1;
end;
writeln(d);
end.

鸡兔同笼

x,a,b=map(int,input().split())
c=0
for i in range(1,x//a+1):
if (x-a*i)%b==0:
c+=1
print(c)
可以算的出来，但不知道为啥就是拿不了满分。

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

11回复贴，共1页

<<返回pascal吧

分享到:

日	一	二	三	四	五	六