a33bun.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 27 行

type multime=set of byte;
var m:array[1..20] of multime;
    i,j,p,x:integer;
    s:multime;
    ok:boolean;
begin
write('p=');readln(p);
for i:=1 to p+1 do begin
                 m[i]:=[];
                 write('x=');readln(x);
                 while x>0 do begin
                              m[i]:=m[i]+[x];
                              write('x=');readln(x);
                              end;
                  end;
s:=m[1];
ok:=true;
for i:=2 to p  do
   s:=s+m[i];
if s<>m[i+1] then ok:=false;
for i:=1 to p-1 do
   for j:=i+1 to p do
           if m[i]*m[j]<>[] then ok:=false;
if ok then write('sunt partitii ale lui ',p+1)
      else write('nu sunt partitii ale lui ',p+1);
readln;
end.