1樓：
vara,b,c,d:integer;
begin
read(a,b,c);
if a < b then
d:=b
else
d:=a;
if c > d then
d:=c;
writeln(d);
end.
2樓：
vars:string;
t,q,m,b,i,k,max:longint;
a:array[1..1000] of longint;
begin
read(s);
t:=1;
q:=1;
m:=0;
b:=1;
s:=s+' ';
for i:=1 to length(s)+1 doif s[i]=' ' then beginfor k:=i-1 downto t dobegin
m:=m+(ord(s[k])-ord('0'))*q;
q:=q*10;
end;
a[b]:=m;
b:=b+1;
m:=0;
q:=1;
t:=i+1;
end;
max:=-maxlongint;
for i:=1 to b-1 do
if a[i]>max then max:=a[i];
writeln(max);
end. 執行過了對的餓 不管是3個數還是n個數都能通過! 最多能到1000個!
3樓：陶梓絮
只是求三個數中的最大數嗎？
vara,b,c:integer;
begin
readln(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
writeln(a);
end.
4樓：
program exe;
varm,n,o,x:integer;
begin
read(m,n,o);
if m = x then
x:=o;
writeln(x);
end.
不用懷疑，絕對正確。附帶問一下，你的pascal能在電腦上執行嗎？
5樓：匿名使用者
var a,b,c:max;
begin
readln(a,b,c);max:=a;
if b>max then max:=b;if c>max then max:=c;writeln(max);
end.
6樓：卞瓃
vara,b,c,d:integer;
begin
write('a,b,c=');
readln(a,b,c);
if (a>b) and (a>c) then d:=aelse if (b>a) and (b>c) then d:=belse d:=c;
writeln('d=',d);
readln;
end.
7樓：匿名使用者
program lt;
varp,a,b,c:longint;
begin
readln(a,b,c);
p:=a;
if b>p then p:=b;
if c>p then p:=c;
writeln(p);
end.
Pascal 程式設計，pascal程式
要想提高，得自己寫程式，讓大家看看你錯在 看別人的程式上進比較慢的。下面的程式除錯通過，完全滿足你的要求，迴圈裡面的writeln是輸出每一項數值的，你可以註釋掉。program ygb var i,j,n,x integer begini 0 j 0 x 1 write n readln n wh...
pascal程式設計急求
好像上面兩位都有點問題 第一題program exe1 vars real i,n,k integer begin s 0.0 readln n for i 1 to n do if odd i then s s 1 ielse s s 1 i writeln s 0 6 end.第二題progra...
PASCAL程式設計中的函式 英文原文
我來滿足一下lz的好奇心啊，順便提公升我的英語水平，這些詞的詞性不統一啊，你就將就著看吧。一般能用到的就有這些 abs x f absolute valuechr x f char dec x p decrease eof f f end of file eoln f f end of lineex...