uses crt;

var i,n,a,b,c,S:integer;

begin

write('nhap n: ');readln(n);

S:=0;

a:=(n-1)/2;

b:=n+1;

c:=n*n;

for i:=1 to n do if ((i<=n) and i>=a)) then S:=S+1;           (câu 1)

writeln('so nguyen duong <=n và >=n-1 la: ',S);

S:=S-S;

for i:=1 to n do if ((i>=b and i<=c)) then S:=S+1;            (câu 2)

writeln('so nguyen duong >= (n+1) va <= n^2 la: ',S);

readln;

end.

B2:

Công thức tính số lượt bắt tay là: (n-1)*(n/2)

Tổng cộng hôm đó có (n-1)*(n/2) lượt bắt tay

VD: lúc đó có 10 ng

thì theo công thức thì ta có 45 lượt bắt tay

bn thử tính xem chuẩn luôn, công thức này đã loại trừ nh lượt bắt tay lặp lại

program bai1_bai2;

uses crt;

var i,n,a,b,c,S:integer;

begin

clrscr;

write('nhap n: ');readln(n);

S:=0;

a:=(n-1)/2;

b:=n+1;

c:=n*n;

for i:=1 to n do if ((i<=n) and i>=a)) then S:=S+1;           (bài 1)

writeln('so nguyen duong <=n và >=n-1 la: ',S);

S:=S-S;

for i:=1 to n do if ((i>=b and i<=c)) then S:=S+1;            (bài 2)

writeln('so nguyen duong >= (n+1) va <= n^2 la: ',S);

readln;

end.