作业帮用pascal判断三条边可否围成三角形
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/21 14:07:51
用pascal判断三条边可否围成三角形
var
a:array[1..5,1..3]of integer;
n,i,j,m,t:integer;
begin
while not eof do
begin
for t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);
m:=0;
for t:=1 to 5 do
begin
n:=a[t,1];
i:=a[t,2];
j:=a[t,3];
if ((n+i)>j)and((n+j)>i)and((i+j)>n) then n:=n+1;
end;
writeln(n);
end;
end.
var
a:array[1..5,1..3]of integer;
n,i,j,m,t:integer;
begin
while not eof do
begin
for t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);
m:=0;
for t:=1 to 5 do
begin
n:=a[t,1];
i:=a[t,2];
j:=a[t,3];
if ((n+i)>j)and((n+j)>i)and((i+j)>n) then n:=n+1;
end;
writeln(n);
end;
end.
你最后应该用m来计数吧
then m:=m+1;
writeln(m);
then m:=m+1;
writeln(m);