作业帮 > 综合 > 作业

数学黑洞6174讲解

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 04:00:49
数学黑洞6174讲解
program p1;
var
a:array[1..4] of integer;{读入一个数组,如4 5 6 7}
i,j,x,y:integer;
begin
for i:=1 to 4 do
readln(a[i]);
y:=0;
while (a[1]6)and(a[2]1)and(a[3]7)and(a[4]4) do
begin
for i:=1 to 3 do
begin
if a[i]