UC知道Pascal帮我分析分析
来源：百度知道 编辑：UC知道 时间：2024/06/23 21:32:20
var
i,j,k:integer;
begin
write(' i j k');
for i:1 to 11 do
forj:=1 to 100-i do
if 5*i+j=0.5*(100-i-j)=100
then writeln(i:7,j:7,(100-i-j):7);
end.
输出：???
i,j,k:integer;
begin
write(' i j k');
for i:1 to 11 do
forj:=1 to 100-i do
if 5*i+j=0.5*(100-i-j)=100
then writeln(i:7,j:7,(100-i-j):7);
end.
输出：???
i j k 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
if 5*i+j=0.5*(100-i-j)=100 这句话有错误。。
楼主可以改好后直接运行一下就能得到结果了
没错吧，没有语法错误。有什么问题？