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（等等再写）

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com