Progranm Exam11；
Var a，b，c: Real；
Begin
Write('Input a， b，c=');
Readln(a，b，c);
if a>c then c:=a;
if b>c then c:=b;
Writeln('MAX=',c);
Readln
End;
我电脑上没有装pascal，你试一下可以运行不
procedure max(a,b,c:longint);
begin
maxn:=a;
if b>maxn then maxn:=b;
if c>maxn then maxn:=c;
end;
maxn为最大数
只会java,c
编程有很多。。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024