UC知道pascal教程
来源：百度知道 编辑：UC知道 时间：2024/05/26 08:46:06
阅读程序，写出运行结果
program
var
i,j,k:integer;
begin
writeln(' i j k')
for i:=1 to 11 do
for j:=1 to 100-i do
if 5*i+j+0.5*(100-i-j)=100
then writeln(i:7,J:7,(100-j-i):7)
end.
输出：
program
var
i,j,k:integer;
begin
writeln(' i j k')
for i:=1 to 11 do
for j:=1 to 100-i do
if 5*i+j+0.5*(100-i-j)=100
then writeln(i:7,J:7,(100-j-i):7)
end.
输出：
1 91 8
2 82 16
3 73 24
4 64 32
5 55 40
6 46 48
7 37 56
8 28 64
9 19 72
10 10 80
11 1 88
这个好像是百钱买百鸡的问题吧，一种鸡5钱，一种1钱，一种2个一钱
1,91,8
2,82,16
3,73,24
4,64,32
5,55,40
6,46,48
7,37,56
8,28,64
9,19,72
10,10,80
11,1,88
鸡兔同笼
1,91,8
2,82,16
3,73,24
4,64,32
5,55,40
6,46,48
7,37,56
8,28,64
9,19,72
10,10,80
11,1,88
鸡兔同笼
1 91 8
2 82 16
3 73 24
4 64 32
5 55 40
6 46 48
7 37 56
8 28 64
9 19 72
10 10 80
11 1 88