a33.pas

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

type multime=set of byte;
var m:array[1..30] of multime;
    s:multime;
    ok:boolean;
    p,i,j:integer;
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[p+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.