不是VIP会员,不能显示答案

题目解答

题目:
var
i,j:longint;
a,b:array[0..20] of longint;
out:array[0..200] of boolean;
begin
for i:=1 to 12 do read(a[i]);
for i:=1 to 15 do read(b[i]);
for i:=1 to 12 do
for j:=1 to 15 do
if a[i]=b[j] then out[a[i]]:=true;
for i:=1 to 90 do
if not out[i] and (i mod 8=0) then
write(i,' ');
end.
【输入】:
2 17 23 28 29 37 38 48 49 58 79 114
2 17 23 28 29 38 45 48 56 58 67 72 75 101 122
输出:8 16 24 32 40 56 64 72 80 88
考点:
分析:
解答:
评论:
老师: