|
|
вернуться в форумHow to make it even easier? 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. |
|
|