pascal ：是不是 连续奇数读入四个整数（0＜每个整数＜50000）,判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将

来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/23 22:33:51
pascal：是不是连续奇数读入四个整数（0＜每个整数＜50000）,判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将pasc

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.

pascal ：是不是 连续奇数读入四个整数（0＜每个整数＜50000）,判断这四个整数能否构成连续的四个奇数,如果可以就输出三行,每行一个等式,每个等式都满足“前一个数+2=后一个数”,否则请将 四个连续奇数的最小公倍数是6435 证明连续四个奇数减一能被八整除 证明连续四个奇数减一能被八整除 为什么四个连续奇数的积减一能被八整除 读入n个数,求第偶数个数的总和,及求出第奇数个数总和的平均数（四舍五入,保留两位小数）.求一pascal程序 四个连续奇数的和是32这四个连续,奇数的积是多少 已知四个连续奇数的乘积是945,这连续四个奇数的和是多少? pascal打印数字图形读入一个整数n（n 四个连续奇数之和等于20000,则这四个奇数分别是?（列出式子） 四个连续奇数的积是19305这四个奇数各是什么 分解质因数,四个连续的奇数,它们的积为19305,求这四个奇数 四个连续奇数的乘积是229425,四个奇数的和是 四个连续奇数的最小公倍数是9009,求四个奇数怎么算的 四个连续奇数的平均数是30,这四个奇数中最小的是? 四个连续奇数的和是32,这四个奇数的积是多少? 四个连续奇数的最小公倍数是9009,求这四个奇数（要写过程） 四个连续奇数的平均数是30,这四个奇数中最大的是?