高考问答ak47全套零件设计图:有几道PASCAL题目不会,请大家进来看看
来源：百度文库 编辑：高考问答 时间：2024/05/04 16:55:02
1．某整数X加上100就成为一个完全平方数,如果让X加上168 就成为另一个完全平方数。求X?
2.某次同学聚会,老同学见面个个喜气洋洋,互相握手问好。参加此次聚会者每人都与老同学握了一次手,共握903次,试求参加聚会的人数？
3.某动物饲养中心用1700元专款购买小狗(每只31元)和小猫(每只21元)两种小动物。要求专款专用,正好用完, 应当如何购买?请输出所有方案。
4.读入某整数N,将N写成因数相乘的形式。如: N=12,输出: 12=1*2*2*3.
5．小会议室里有几条相同的长凳,有若干人参加开会。如果每条凳子坐6人,结果有一条凳子只坐有3人;如果每条凳子坐5人,就有4人不得不站着。求会议室里有多少人开会,有多少条长凳
2.某次同学聚会,老同学见面个个喜气洋洋,互相握手问好。参加此次聚会者每人都与老同学握了一次手,共握903次,试求参加聚会的人数？
3.某动物饲养中心用1700元专款购买小狗(每只31元)和小猫(每只21元)两种小动物。要求专款专用,正好用完, 应当如何购买?请输出所有方案。
4.读入某整数N,将N写成因数相乘的形式。如: N=12,输出: 12=1*2*2*3.
5．小会议室里有几条相同的长凳,有若干人参加开会。如果每条凳子坐6人,结果有一条凳子只坐有3人;如果每条凳子坐5人,就有4人不得不站着。求会议室里有多少人开会,有多少条长凳
第二题用pascal做
program woshou (input,output);
uses crt;
var
x,y:integer;
begin
for y:=1 to 100 do
if (1+y)*y/2=903
then begin x:=y+1; end;
if x>0 then
write (x);
readkey
end.
第三题用PASCAL做
program maimaomaigou (input,output);
uses crt;
var
cat,dog:integer;
begin
for cat:=0 to 1000 do
for dog:=0 to 1000 do
if 31*dog+21*cat=1700
then writeln ('cat',cat,'dog',dog);
readkey
end.
第五题用PASCAL做
program dengzi (input,output);
uses crt;
var
dz,r:integer;
begin
for dz:=1 to 9999 do
for r:=1 to 9999 do
if (r-3=(dz-1)*6) and (r-dz*5=4)
then write ('dengzi',dz,'ren',r);
readkey
end.
都试过了，没问题