|
|
var a,b,c,d:integer; begin read(a,b,c,d); if ((a-b=0)or(a-c=0)or(a-d=0)) and((b-a=0)or(b-c=0)or(b-d=0)) and((c-a=0)or(c-b=0)or(c-d=0)) and((d-a=0)or(d-b=0)or(d-c=0)) then writeln('yes') else writeln('no'); end. Agreed, it is good to have some basic problems for beginners. |
|
|