主题：请问.....
QQ331373582
[专家分：1500] 发布于 2005-09-05 20:14:00
甲乙两个自然数的和, 差, 积, 商四个数加起来等于243, 求甲乙两数各是多少. 若他们的和, 差, 积, 商四个之积等于94221. 那么甲乙两数又各是多少?
回复列表 （共2个回复）
沙发
huangxixixi [专家分：30] 发布于 2005-09-05 21:04:00
这个对不对？？
var x,y,a,b:longint;
begin
a:=0;
b:=0;
for x:=1 to 60 do begin
for y:=1 to (243-x) div x do begin
if (x+y)+(x-y)+(x*y)+(x div y)=243 then begin
inc(a);
writeln(a,':','x=',x,'y=',y,' ');
end;
end;
end;
writeln('---------------------------');
for x:=1 to 45 do begin
for y:=1 to x-1 do begin
if (x+y)*(x-y)*(x*x)=94221 then begin
inc(b);
writeln(b,':','x=',x,'y=',y,' ');
end;
end;
end;
end.
[em18][em18][em18]
板凳
花花美男子 [专家分：260] 发布于 2005-09-07 18:34:00
program xj;
var
a,b:integer;
begin
for a:=1 to 100 do
for b:=1 to 100 do
begin
if a*a*a*a-a*a*b*b=94211
then writeln(a,' ',b);
if 2*a+a*b+a/b=243 then writeln(a,' ',b);
end;
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 请问.....