Tên đăng nhập Điểm Bài tập ▾ Giới thiệu
1 18630 230

“Các điều chúng ta biết chỉ là một giọt nước. Các điều chúng ta không biết là cả một đại dương”

2 15161 223
3 9207 202

[(❁´◡`❁)]
Nguyễn Bảo Ngọc

           Ú òa!
I am nguyenbaongoc130113
4 11610 159
5 11532 137

6 17003 130

Chỉ thích mỗi Bác Năm

7 22281 128

𝓿𝓾̃ 𝓱𝓾𝔂 𝓽𝓻𝓾̛𝓸̛̀𝓷𝓰❁◕ ‿ ◕❁

8
PY1DVoTruongHuy 1069
TK22LeCongMinh
5940 97
9 10937 53

Hê lô

10 4767 45
11 6349 41
12 6565 41

dz s1tg

13 7344 39
14 3761 38
15 2415 36

mmb

16 11166 33
17
lykhai0806
khaihacker
3578 28
18 2506 25
19 12311 22
20 4760 19
21 11158 18
22
trangtrangVN 888
Hoàng Minh Vũ, Kon Tum
3796 16
23
phamhoangson08
Alex Marself
2400 14
24 9795 13
25 9098 10
26
kwongson
Kwong Son
748 9
27 3540 8
28 1414 8
29 2193 5
30
nguyenhongnam207
Nguyễn Hồng Nam
4804 5
31 8371 5
32 2595 5
33 1208 5
34 2551 4

sdfsdgsggasdghdfdg

35 5078 4
36 1730 3
37 198 3
38 2183 3
39 197 2

code_hack

39 197 2
41 301 1
42 201 1
43 150 1
44 1 1
45 1601 1
46 501 1
47 401 1
48 801 1
49 71 1
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0

var a: array [1..1000] of integer;
i,n,d,t,j : integer;
begin
writeln('Nhap n : ');readln(n);
for i:= 1 to n do begin
writeln;
write('a[',i,'] = ' );
readln(a[i]);
end;
t:=0;
for i:= 1 to n do
begin
d:=0;
for j:= i to n do if a[i]=a[j] then d:=d+1;
t:=t + (d div 2);
if (d>1) and (d mod 2>=1) then t:=t-(d mod 2);
end;
writeln;
writeln(t);
readln
end.

50 0 0
50 0 0
50 0 0
50
quanpham10bt
Phạm Gia Minh Quân
0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0

Tôi muốn học tập Scratch

50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0
50 0 0