pascal :是不是 连续奇数读入四个整数(0<每个整数<50000),判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 03:56:28
![pascal :是不是 连续奇数读入四个整数(0<每个整数<50000),判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将](/uploads/image/z/7274553-33-3.jpg?t=pascal+%EF%BC%9A%E6%98%AF%E4%B8%8D%E6%98%AF+%E8%BF%9E%E7%BB%AD%E5%A5%87%E6%95%B0%E8%AF%BB%E5%85%A5%E5%9B%9B%E4%B8%AA%E6%95%B4%E6%95%B0%EF%BC%880%EF%BC%9C%E6%AF%8F%E4%B8%AA%E6%95%B4%E6%95%B0%EF%BC%9C50000%EF%BC%89%2C%E5%88%A4%E6%96%AD%E8%BF%99%E5%9B%9B%E4%B8%AA%E6%95%B4%E6%95%B0%E8%83%BD%E5%90%A6%E6%9E%84%E6%88%90%E8%BF%9E%E7%BB%AD%E7%9A%84%E5%9B%9B%E4%B8%AA%E5%A5%87%E6%95%B0%2C%E5%A6%82%E6%9E%9C%E5%8F%AF%E4%BB%A5%E5%B0%B1%E8%BE%93%E5%87%BA%E4%B8%89%E8%A1%8C%2C%E6%AF%8F%E8%A1%8C%E4%B8%80%E4%B8%AA%E7%AD%89%E5%BC%8F%2C%E6%AF%8F%E4%B8%AA%E7%AD%89%E5%BC%8F%E9%83%BD%E6%BB%A1%E8%B6%B3%E2%80%9C%E5%89%8D%E4%B8%80%E4%B8%AA%E6%95%B0%2B2%3D%E5%90%8E%E4%B8%80%E4%B8%AA%E6%95%B0%E2%80%9D%2C%E5%90%A6%E5%88%99%E8%AF%B7%E5%B0%86)
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.