UC知道又一pascal程序问题（好像有很多）
来源：百度知道 编辑：UC知道 时间：2024/06/16 16:28:13
请判断，以下程序中所有错误并改正
program RT;
var
a,b,c:shortint;
begin
writeln('please input a,b,c:');
readln(a,b,c);
if a*a+b*b=c*c or a*a+c*c=b*b or b*b+c*c=a*a then writeln('true')
else writeln('false');
readln;
end.
（这个是判断直角三角形的程序）
program RT;
var
a,b,c:shortint;
begin
writeln('please input a,b,c:');
readln(a,b,c);
if a*a+b*b=c*c or a*a+c*c=b*b or b*b+c*c=a*a then writeln('true')
else writeln('false');
readln;
end.
（这个是判断直角三角形的程序）
program RT;
var
a,b,c:shortint;
begin
writeln('please input a,b,c:');
readln(a,b,c);
if (a*a+b*b=c*c)or(a*a+c*c=b*b)or(b*b+c*c=a*a) then writeln('true')
else writeln('false');
readln;
end.
好像少括号
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then ....