pascal :是不是 连续奇数读入四个整数(0<每个整数<50000),判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/01 17:50:51
pascal :是不是 连续奇数读入四个整数(0<每个整数<50000),判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将
pascal :是不是 连续奇数
读入四个整数(0<每个整数<50000),判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将这四个整数从大到小输出(数据之间以一个空格隔开).
pascal :是不是 连续奇数读入四个整数(0<每个整数<50000),判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将
var a:array[1..4] of longint;
i,j,k:integer;
b:boolean;
begin
for i:=1 to 4 do read(a[i]);
readln;
for i:=1 to 3 do
for j:=i+1 to 4 do
if a[i]>a[j] then begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:=1 to 3 do if a[i]+2=a[i+1] then b:=true
else begin
b:=false;
break;
end;
if b then begin
for i:=1 to 3 do write(a[i],'+2=',a[i+1]);
writeln;
end
else for i:=4 downto 1 do if i=1 then writeln(a[i])
else write(a[i],' ');
end.