Program Typlex;

Uses crt;

Var n,bt: integer;

Begin

     Writeln('Nhap so nguoi tham gia: '); Readln(n);

     bt:=n*(n-1)/2;

     Writeln('So bat tay: ',bt);

     Readln

End.

Giải thích cách giải:

- 1 người thì bắt tay với (n-1) người còn lại

- Tổng số bắt tay là n(n-1)

- 2 người bắt tay nhau chỉ mất 1 lần

- Tổng số bắt tay n(n-1)/2