Задача A-Свято цукерок var s1,s2,s3:string; i,l:word; c:char; begin read(c); while c<>#32 do begin s1:=s1+c; read(c); end; read(c); while c<>#32 do begin s2:=s2+c; read(c); end; read(c); while c in['0'..'9'] do begin s3:=s3+c; read(c); end; l:=length(s1); if length(s2)>l then l:=length(s2); if length(s3)>l then l:=length(s3); while length(s1)<l do s1:='0'+s1; while length(s2)<l do s2:='0'+s2; while length(s3)<l do s3:='0'+s3; if s1>s2 then if s1>s3 then writeln(s1) else writeln(s3) else if s2>s3 then writeln(s2) else writeln(s3); end.
Задача B-Змійка var f,f1 : text; a:array[0..101,0..101] of 0..1; n,m,i,j,k,s,dl: integer; l:boolean; begin assign(f,'z2.dat'); assign(f1,'z2.sol'); reset(f); rewrite(f1); readln(f,n,m); for i:=1 to n do for j:=1 to m do read(f, a[i,j]); i:=1; k:=0; dl:=0; for i:=1 to n do for j:=1 to m do if a[i,j]=1 then begin dl:=dl+1; s:=a[i,j-1]+a[i,j+1]+a[i-1,j]+a[i+1,j]; if s=1 then k:=k+1 end; if (s=0) or (k=2) then begin writeln(f1,'No'); writeln(f1,dl) end else begin writeln(f1,'Yes'); writeln(f1,dl) end; Close(f1);close(f) end.
Задача C-Командна гра var f,f1:text; a:array[1..100] of set of 1..50; b: array[1..100] of boolean; i,j,k,n,m:integer; c,d:set of 1..50; r:boolean; begin assign(f,'z3.dat'); reset(f); readln(f,n); for i:=1 to n do begin read(f,m); if m=0 then a[i]:=[] else for j:=1 to m do begin read(f,k); a[i]:=a[i]+[k]; end; end; c:=a[1]; k:=1; b[1]:=true; repeat r:=false; d:=c; for i:= 2 to n do if (a[i]*c <> []) and not b[i] then begin c:=c+a[i]; k:=k+1; b[i]:=true end; if d<>c then r:=true; until not r; assign(f1,'z3.sol'); rewrite(f1); writeln(f1,k); close(f1) end.