pascal语言求解(有人答+20分...只有20了,寒假作业,救命啊)
发布网友
发布时间：2024-10-24 00:47
共1个回答
热心网友
时间：2024-11-10 17:23
1：
var
a,b,c:integer;
begin
for a:=1 to 6 do
for b:=1 to 34 do
for c:=1 to 100 (这个瞎设的，没算过，小了自己加)do
if (a*18+b*3+c*0.25=100)and(a+b+c=99) then writeln(a,' ',b,' ',c);
end.
2:
var
a,i,j:integer;
begin
for a:=1000 to 9999 do（等等再写）
