text:
Nha Khoa Việt Pháp, 367-367a Phan Đình Phùng, P15, Q Phú Nhuận. Website: http://nhakhoavietphap.com.vn
Nha Khoa Thái Tổ, 472 - 474 Lý Thái Tổ, P10, Q 10. Website: www.nhakhoathaito.com
Nha Khoa Đăng Lưu, 34 Phan Đăng Lưu, P6, Q Bình Thạnh. Website: www.nhakhoadangluu.com
Nha Khoa Toàn Sứ Cercon, 207 -209 Phan Đăng Lưu, P1, Q Phú Nhuận. Website: www.nhakhoatoansu.com
Nha Khoa Thanh Hằng
Địa chỉ : 138 Nguyễn An Ninh – Phường Tân An – Quận Ninh Kiều – Thành Phố Cần Thơ Điện thoại : +84-710.3 826 799
Trụ Sở chính: Km 1,4 Phạm Văn Đồng, Quận Dương Kinh , Hải Phòng. Tel : 0313.635.299 Cơ Sở 1: 72 Thọ Xuân - Núi Đối – Kiến Thụy
Bệnh Viện Răng Hàm Mặt Trung Ương TP.HCM
Địa chỉ: 201A Nguyễn Chí Thanh, Phường 12, Quận 5, TP.HCM Điện thoại: (848) – 8.535178 / 8.556.732 Bệnh viện răng hàm mặt TP.HCM
Địa chỉ: 263-265 Trần Hưng Đạo, Quận 1, TP.HCM Điện thoại: (08) 38360191 – 38377584
Nha khoa Phú Mỹ ®
Khởi đầu một nụ cười Địa chỉ: 62 – 64 Tân Kỳ Tân Quý, P. Tây Thạnh, Q. Tân Phú, TP. HCM Điện thoại: 38470256 Digital Dental Clinic
Địa chỉ: 21B/1 Nguyễn Đình Chiểu, P.Đa Kao, Q.1, TP.HCM Điện thoại: 0989809089 Email: nguyen-thi-phuong.uyen@digitaldentalclinic.com logo-nha-khoa-50Nha Khoa Hoàng Khang
Địa chỉ: 276 Bis, Cách Mạng Tháng 8, P.10, Q.3, TP.HCM Điện thoại: 08.39351295 – 0903848564 logo-nha-khoa-50Nha khoa Hoàng Hải
Địa chỉ: 30, Lý Chính Thắng, P 8, Q 3, Tp.HCM Điện thoại: 0913765756
Nha Khoa Hồng Ngọc
Địa chỉ: 77/15, Trương Đan Quế, P.1, Q.Gò Vấp, Tp.HCM Điện thoại: 0913727785
Nha Khoa Thiên Đức
Địa chỉ: 300 Trường Chinh – P14 – Q.Tân Bình – TPHCM Điện thoại: 08-62972938 – 0938 674 379 – 0989 024 820 Giờ làm việc: Sáng 8g – 11g30
Nha Khoa Bích Hạnh
Địa chỉ: 77/1 ấp Ti A, xã Đông Hòa, Dĩ An, Bình Dương Điện thoại: 0909912346
Nha Khoa Sứ Trắng
Địa chỉ: 60 Trương Quyền, P.3, Q.3, Tp.HCM Điện thoại: 08 62991961 – 0903 927 961 Email: nhakhoasutrang@gmail.com
Nha Khoa Tâm Đức
Địa chỉ: 1599 đường 3 tháng 2, P.16, Q.11, tp.HCM Điện thoại: 08.39698537 – 08.38848500 – 0913 777725
Nha Khoa Việt Anh
Địa chỉ: 64 Nguyễn Đình Chính, P.15, Q.Phú Nhuận, tp.HCM Điện thoại: 08 38459442 – 08 39902750 Emial:
Nha Khoa TH
Địa chỉ: CSI: 235 Nguyễn Oanh, P.10, Q.Gò Vấp, tp.HCM – Điện thoại: (08) 3989 9669 CSII: 174 Nguyễn Văn Nghi, P.5, Q.Gò Vấp, tp.HCM
Nha Khoa Minh Châu
Địa Chỉ: 113 Nguyễn Thái Sơn, P.4, Q.Gò Vấp, Tp.HCM Điện thoại: 083985599
Nha Khoa Toàn Mỹ
Địa chỉ : 321 Lê Văn Quới , P . Bình Trị Đông , Q . Bình Tân , TP.HCM Điện Thoại : 6674.7379
Nha Khoa Hồ Ngọc
Địa chỉ : 82 A Kha Vạn Cân , P. Hiệp Bình Chánh , Q . Thủ Đức , TP.HCM Điện Thoại : 08.6674.9157 – 0939.107.592
Trung Tâm Nha Khoa Hoa Kỳ
Địa chỉ : 1111 Lũy Bán Bích , P. Tân Sơn Nhì , Q . Tân Phú , TP.HCM Điện Thoại : 08.6679.0115
Nha Khoa Nghi Hân
Địa chỉ : 110 Gò Dầu , P . Tân Quý , Q. Tân Phú , TP.HCM Điện thoại : 08.6674 8155
Nha Khoa Cát Trắng
Địa chỉ: 762-764 Điện Biên Phủ, P.10, Q.10, tp.HCM Điện thoại: 08 38 333499 – 08 38 333 599 Email:
Nha Khoa Mỹ Châu
Địa chỉ: 241, 3 tháng 2, P.10, Q.10, Tp.HCM Điện thoại: 08.66741375
Nha Khoa Minh Long
Địa chỉ: 303 Tùng Thiện Vương, P.11, Q.8, tp.HCM Điện thoại: 08. 35011741 Bác sĩ trưởng: Cù Thành Long – Điện thoại: 0909 606 988
Nha Khoa Lam Sứ
Địa chỉ: B1-01 Nam Thiên II, Hà Huy TẬp, Phú Mỹ Hưng, Q.7, tp.HCM Điện thoại: 08.5411198 Email: celadondental@gmail.com
Nha Khoa Việt Xuân
Địa chỉ: 20 Hậu Giang, P.2, Q.6, tp.HCM Điện thoại: 08. 39692112
Nha Khoa PT
Địa chỉ: 001A C/C H1 Hoàng Diệu, P.9, Q.4, tp.HCM Điện thoại: 08.9433276 Email: minhtridentist@yahoo.com Website: Bác sĩ trưởng: Nguyễn Minh Trí – Điện thoại: 0982149179
Nha Khoa Thiện Mỹ
Địa chỉ: 535 Nguyễn Thiện Thuật, P.1, Q.3, tp.HCM Điện thoại: 083.929 0 929 Email: info@nhakhoathienmy.com
Nha Khoa HP
Địa chỉ: 525 Điện Biên Phủ, P.3, Q.3, tp.HCM Điện thoại: 08.38356245 – 08.38308069 Email: pnhuy@hcm.vnn.vn
Nha Khoa Khỏe Và Xinh
Địa chỉ: 270 Lý Thái Tổ, P.1, Q.3, tp.HCM Điện thoại: 08.38300888
Nha Khoa Tân Mỹ
Địa chỉ: 651 Điện Biên Phủ, P.1, Q.3, tp.HCM Điện thoại: 08.38335870 – 08.35088899 Nha Khoa Á Châu
Điạ chỉ: 441B Hai Bà Trưng, P.8, Q.3, tp.HCM Điện thoại: 08.62909297
Nha Khoa Viễn Đông
Địa chỉ: 249 Lê Thánh Tôn, P.Bến Thành, Q.1, tp.Hồ Chí Minh Điện thoại: 08.22448888 – 08.38233405 Email: nkviendong@hcm.vnn.vn
Nha Khoa Cống Quỳnh
Địa chỉ: 35, Cống Quỳnh, Quận 1, tp.HCM Điện thoại: 08.39255531 08.38324682 Email:nhakhoacongquynh@yahoo.com.vn Bác sĩ trưởng: Nguyễn Thị Khen
Nha Khoa Sĩ Cường
Địa chỉ: 1172L-1172K, đường 3 tháng 2, P.12, Q.11, tp.HCM Điện thoại: 08.39626647 – 08.39626648 Email: Website: Bác Sĩ trưởng: Đặng Sĩ Cường - Điện thoại: 0913898774 Nha Khoa Châu Âu
Địa chỉ: 45 Lý Thái Tổ, P.1, Q.10, Tp.HCM Điện thoại: 08.39271154 – 08 38338349 Email: nhakhoachauau@yahoo.com.vn
Nha Khoa Việt Quốc
Địa chỉ: 142 Nguyễn Sơn, P.Phú Thọ Hoà, Q.Tân Phú, tp.HCM Điện thoại: 08.62674494 Email: vietdentist@yahoo.com Website: Bác Sĩ trưởng: Nguyễn Cửu Việt – Điện thoại: 0983109209
Nha Khoa Ánh Dương
Địa chỉ: 225 Dương Bá Trạc, P.1, Q.8, tp.HCM Điện thoại: 08.35040814 - 08.39832471 - 0988611614 Email: anhduong14@gmail.com Website: Bác Sĩ trưởng: Trung Tâm Nha Khoa Kỹ Thuật Cao Cẩm Tú
Địa chỉ: CSI: 4B Trần Hưng Đạo, Q.1, TP.HCM - 08.38218807 CSII: 62/3A Quang Trung, Gò Vấp, tp.HCM - 08.39139979 CSIII: 74/9A Nguyễn Ảnh Thủ, Q.12, tp.HCM - 08.37189569
nhakhoalananhNha Khoa Lan Anh – Chuyên răng sứ & implant
Nha Khoa Kỹ Thuật Cao Hồng Dung
Địa chỉ: CS I: 36 Nơ Trang Long, Phường 14, Quận Bình Thạnh, Tp.HCM + ĐT: 38418495 CSII: 92, D5 (khu dân cư Thánh Bắc), Phường 25, Quận Bình Thạnh,
Nha khoa Kỹ Thuật Châu Âu
Địa chỉ: 196, Lý Thái Tô, Q.3, TP.HCM Điên thoại: 08. 38 339 340
Nha khoa Á Âu
Địa chỉ: 08 Thủ Khoa Huân, P.Bến Thành, Quận 1, TP.HCM Điện thoại: 08.3824.8650 Nha Khoa Tâm Đức III
Địa chỉ : 17( số cũ 123/12 ) Ung Văn khiêm ,p.25 , Q.Bình Thạnh , TP.HCM Điện thoại : 08.2243.2596 – 0909.374.179
Nha Khoa Mỹ Ý
Địa chỉ : 109A , Nguyễn Thái Sơn, P.4 , Q.Gò Vấp, TP.HCM Điện thoại : 08.62744809 Nha Khoa Nhật Nam
Địa chỉ : 690 Xô Viết Nghệ Tĩnh , P.25 , Q.Bình Thạnh , TP.HCM Điện thoại : 0835.11184 – 08 6258.9645 – 0903.810.003 Email:
Nha Khoa Hàng Xanh
Địa chỉ : 23 Đinh Bộ Lĩnh , P.24 , Q. Bình Thạnh , TP.HCM Điện thoại : 848.3511.1848 - 3511.3869 Email: clinic@hangxanhdental.com.vn
Nha Khoa Khải Hoàn
Địa chỉ : 405B Xô Viết Nghệ Tĩnh , P.24 , Q. Bình Thạnh , TP.HCM Điện thoại : 083.5445.1021
Nha Khoa Minh Anh
Địa chỉ : 356 Bạch Đằng , P.14 , Q. Bình Thạnh , TP.HCM Điện thoại : 08.3841.0539 – 0908.363.223
Nha Khoa Việt Đăng
Địa chỉ : 308 – 310 Bạch Đằng , P.14 , Q.Bình Thạnh, tp .HCM Điện thoại : 38.412099 – 38.430624 – 0903.810003
Địa chỉ : 332D ( Số cũ 234A) Phan Văn Trị, P.11 , Q.Bình Thạnh , TP.HCM Điện thoại : 08.3806.0409 – 0919.148994 Email: nhakhoavieta@gmail.com Website: www.nhakhoavieta.com
Địa chỉ :596 Xô Viết Nghệ Tĩnh , Q. Bình Thạnh , TP.HCM Điện thoại : 08.3899.8007
Địa chỉ : 178A Nơ Trang Long , P.12 , Q. Bình Thạnh , TP.HCM Điện thoại : 08.3516.5156
Địa chỉ : 233 E1 Phan Văn Trị , P.11 , Q. Bình Thạnh , TP.HCM Điện thoại : 08.6674.9057 – 0939.107.592
Địa chỉ : 367 Phan Văn Trị , Q.Bình Thạnh , TP.HCM Điện thoại : 08.6294.0628 – 0918.590094 – 0914.073659
Địa chỉ : CSI: 152 Nguyễn Văn Nghi, P.5, Q.Gò Vấp, tp.HCM – Điện thoại :08.6279.9193 CSII: 001A (C/C H1), Hoàng Diệu, P.9, Q.4, tp.HCM- Điện thoại :08.39433276
Địa chỉ : 154 Nguyễn Văn Nghi , P.5 , Q. Gò Vấp , TP.HCM Điện thoại : 08.35885.609 Email: nhakhoagovap154@gmail.com
Địa chỉ : 1B5 Nguyễn Thái Sơn , P.3, Q. Gò Vấp , TP.HCM Điện thoại : 38956561 – 0903.910.207
Địa chỉ : 201A Quang Trung , P.10 , Q. Gò Vấp , TP.HCM Điện thoại : 9892783 – 0903.352719
Địa chỉ : 62/ 6B Quang Trung , P.14, Q.Gò Vấp , TP.HCM Điện thoại :08.987.2222 – 093.987.2222 – 094.987.2222 Email: info@nhakhoaminhchanh.com
Nha Khoa Hồng Phúc
Địa chỉ : 194 Thống Nhất , P.16 , Q. Gò Vấp , TP.HCM Điện thoại : 3895.9172 – 0918.204526
Nha Khoa Đệ Nhất
Địa chỉ : 485 Quang Trung , P.10 , Q.Gò Vấp , TP.HCM Điện thoại :08.9.969.314 - 08.272.9693 – 08.6.102066
Trung Tâm Nha Khoa Toàn Sứ
Địa chỉ :207 - 209 Phan Đăng Lưu, P.1, Q.Phú Nhuận , TP.HCM Điện thoại : 08.3995.5249 – 7307.5689 Email : Website: www.nhakhoatoansu.com
Địa chỉ : 731A Huỳnh Tấn Phát, P. Phú Thuận, Q.7 , TP.HCM Điện thoại : 3773.3474 – 3773.0178 – 0903.864.864 – 0903.985.558
Địa chỉ : 102 Hậu Giang , P.6, Q.6 , TP.HCM Điện thoại : 3969.2374 – 0913.717.113
Địa chỉ : 367 – 367 A Phan Đình Phùng , P.15 , Q. Phú Nhuận , TP.HCM Điện thoại : 08.6292.10.19 – 08.6292.06.85 Email: Website: www.nhakhoavietphap.com.vn
Địa chỉ : 653 Nguyễn Kiệm , P.9 , Q.Phú Nhuận, TP.HCM Điện thoại :08.8.423.834 – 8.441.743
Địa chỉ : CSI: 279 HOÀNG DIỆU , P.13 , Q.4 , TP.HCM – Điện thoại : 08.6262.9557 CSII: 364 Lê Văn Sỹ, P.14, Q.3, tp.HCM
Nha Khoa Đức Hiền
Địa chỉ : 06 , 3 tháng 2 , P.12, Q.10, TP.HCM Điện thoại : 08.6464.5759 Email:
NHA KHOA VIỆT HÀN
Địa chỉ : 70 TÂN MỸ , P.TÂN PHÚ , Q.7 , TP.HCM Điện thoại : 08.6678.2838 – 0983.543.739
Nha Khoa Nguyên Khôi
Địa chỉ : 5/1 Quang Trung , P.14, Q.Gò Vấp, TP.HCM Điện thoại : 08.3996.7269
Địa chỉ : B102 Nguyễn Văn Quá , P. Đông Hưng Thuận, Q. 12, TP.HCM Điện thoại : 08.3715.0686 – 0939845845
Địa chỉ : 322 Tùng Thiện Vương , P.13, Q.8 , TP.HCM Điện thoại : 08.6260.9179 – 0989.967.940
NHA KHOA
| GIỚI
THIỆU | DỊCH
VỤ |
THIẾT BỊ | ĐỘI
NGŨ BÁC SỸ | TƯ
VẤN NHA KHOA | LIÊN
HỆ
Copyright 2011, Nha Khoa Đăng Lưu

markdown:
Địa chỉ : 308 – 310 Bạch Đằng , P.14 , Q.Bình Thạnh, tp .HCM Điện thoại : 38.412099 – 38.430624 – 0903.810003
|
|
|
|
|
|
|
## TƯ VẤN NHA KHOA
|
|![]()
|
|
|
|![]()
|
|
|
|
|
|
Nha khoa Đăng Lưu - Trung tâm chuyên sâu về niềng răng - Răng sứ ,
![]()

Server: Apache/2.2.20 (Unix) mod_ssl/2.2.20 OpenSSL/0.9.8e-fips-rhel5 DAV/2 mod_bwlimited/1.4 mod_jk/1.2.30


text: Các bác cho em hỏi cách xem dung lượng PIN trên nokia lumia 710 với ạ. Cột sóng, các kiểu khi dùng nó hiển thị ở đâu ạ. Cách tải nhạc và vào bộ nhớ máy như thế nào các bác ơi Thanks các bác !

WARC-Type: response

Content-Type: application/http; msgtype=response

Server: LiteSpeed

Connection: close

Cache-control: private, max-age=0

Set-Cookie: tt_session=a62cdfc99fc464926fd1274a4ba5a338; path=/; domain=.tinhte.vn; httponly

X-Frame-Options: SAMEORIGIN

Content-Type: text/html; charset=UTF-8

Content-Encoding: gzip

Vary: User-Agent


text: Các bác nào có lòng Hảo Tâm, share cho em key Windows 8 Pro với. E đi tiêm 2 bữa nay, không thấy có diễn đàn nào cho cả. Cám ơn các bác trước.

Set-Cookie: tt_session=082fe356eb1f193293141df9ff6aab1d; path=/; domain=.tinhte.vn; httponly


text:
Bắt vụ ma túy cực lớn ở Hà Nội
Thứ 5, 05/07/2012 17:27:15- Chuyên mục
Chiều 5/7, Cục CSĐT tội phạm về ma túy (C47), Bộ Công an cho biết vừa phá đường dây buôn bán ma túy xuyên quốc gia, thu giữ lượng lớn ma túy.
Trước đó, vào 20h ngày 3/7, tại phòng 1004, CT1, khu đô thị Văn Khê, phường La Khê, quận Hà Đông, Hà Nội, Cục Cảnh sát Phòng chống tội phạm về ma tuý, Bộ Công an phối hợp với Cục Cảnh sát biển Việt Nam, phòng PC47, Công an Quảng Ninh và Công an quận Hà Đông đã bắt giữ Nguyễn Duy Thắng (SN 1984) và Nguyễn Thị Thuỳ Dương (SN 1988), cùng trú ở Mường Sa, Mộc Châu, Sơn La.
Cơ quan Công an thu giữ 89 bánh heroin, 33.800 viên ma tuý tổng hợp, 1 kg ma tuý tổng hợp dạng tinh thể (đá), 1 khẩu súng K59, 6 viên đạn và 1 xe ô tô Civic. Ngoài ra cơ quan Công an còn thu giữ được 15.000 USD, 50 triệu đồng và các tang vật, tài liệu có liên quan khác.
Tiếp đó, cơ quan Công an bắt giữ 7 đối tượng khác, thu giữ 200 gram ma túy tổng hợp dạng tinh thể (đá), 4 xe ô tô, 100 triệu đồng, cùng các tài liệu có liên quan.
Thực hiện ý kiến chỉ đạo của Lãnh đạo Bộ Công an, cơ quan điều tra đã xác lập chuyên án 006N, tiến hành đấu tranh với đường dây mua bán, vận chuyển trái phép ma túy từ Lào vào Việt Nam và đưa sang Trung Quốc tiêu thụ.
Ở giai đoạn 1 của chuyên án, cơ quan Công an đã bắt giữ được 8 đối tượng trong đường dây, ra quyết định truy nã 6 đối tượng khác. Số ma tuy thu giữ được là 80.006 viên MTTH và 1 gói ma túy tổng hợp dạng tinh thể cùng 1,5 tỷ đồng, 2 xe ô tô...
Các đối tượng bị bắt khai nhận, chúng đã mua bán, vận chuyển trót lọt 625 bánh heroin, 15 kg ma túy tổng hợp dạng tinh thể (đá) từ Lào vào Việt Nam sau đó đưa sang Trung Quốc tiêu thụ qua tuyến biên giới thuộc các tỉnh Sơn La, Hòa Bình, Quảng Trị, Hà Tĩnh, Quảng Ninh và Lạng Sơn.
Các đối tượng trong đường dây ma túy này cũng đã mua và vận chuyển hàng trăm ngàn viên ma túy tổng hợp từ Trung Quốc về Việt Nam tiêu thụ.
Xét thấy đây là đường dây ma túy lớn, cần phải huy động tối đa lực lượng, phương tiện, kinh phí để tập trung điều tra, triệt xóa, Bộ Công an đã quyết định thành lập Ban chỉ đạo điều tra chuyên án để điều tra, bóc gỡ triệt để đường dây tội phạm này.
Chiều 5/7, Thiếu tướng Nguyễn Anh Tuấn, Cục trưởng Cục CSĐT tội phạm về ma túy (C47), Bộ Công an cho biết: Sau khi một số đối tượng trong đường dây ma túy này bị bắt giữ, các đối tượng khác ở bên ngoài vẫn tiếp tục mua bán và vận chuyển ma túy với số lượng lớn.
Đến đêm 3, rạng sáng 4/7, Cục C47, phối hợp với các đơn vị khác đã “tung lưới”, tóm gọn 2 đối tượng, thu giữ 89 bánh heroin, 33.800 viên ma tuý tổng hợp, 1 kg ma tuý tổng hợp dạng tinh thể (đá)...
Lần “tung lưới” này, một số đối tượng đã bỏ trốn nên C47 đã thực hiện phương án phối kết hợp với Công an Hòa Bình để đón lõng các đối tượng. Lực lượng chuyên án đã kịp thời thông báo Công an tỉnh Hòa Bình thắt chặt đường đi của bọn tội phạm.
Các mũi trinh sát được huy động chốt chặt ở Mộc Châu, Sơn La để kịp thời bắt giữ các đối tượng. Và chính trong đêm 3, rạng sáng ngày 4/7, một nhóm tội phạm ma túy khác đã lọt vào ổ phục kích của các trinh sát.
Tổ công tác tại địa bàn xã Loóng Luông, Mộc Châu, Sơn La đã phát hiện xe ô tô tải mang BKS 29C- 13.389 có nhiều biểu hiện nghi vấn. Tiến hàng kiểm tra, các trinh sát phát hiện trên xe có 42 bánh heroin. Đối tượng lái xe là Sồng A Tếch (SN 1971, ở xã Pà Cò, Mai Châu, Hòa Bình. Vụ việc này được giao cho Cồn an tỉnh Sơn La thụ lý điều tra.
Cũng trong chiều 5/7, lãnh đạo Bộ Công an cũng đã khen thưởng các đơn vị phá án mỗi đơn vị 10 triệu đồng vì đã hoàn thành xuất sắc chuyên án.
<>T.Nhung
- Loạn cà phê thiếu nữ đi "cà kheo" ở Sài Gòn (17/04)
- Nỗi đau người mẹ chứng kiến con gái bị xe máy chở 3 đâm chết (17/04)
- Nữ tiếp viên Vietnam Airlines bị Nhật bắt giữ sắp về nước (17/04)
- 2 trẻ tử vong, 1.000 ca mắc sởi trong 1 ngày (17/04)
- Danh sách nạn nhân vụ tai nạn thảm khốc trên cao tốc Trung Lương (17/04)

markdown:
# Bắt vụ ma túy cực lớn ở Hà Nội
###### Thứ 5, 05/07/2012 17:27:15- Chuyên mục
**- Cục CSĐT tội phạm về ma túy (C47), Bộ Công an vừa phối hợp bắt giữ các đối tượng, thu giữ 33.800 viên ma túy tổng hợp, 1 kg ma túy tổng hợp dạng tinh thể (đá) và súng đạn...**
Chiều 5/7, Cục CSĐT tội phạm về ma túy (C47), Bộ Công an cho biết vừa phá đường dây buôn bán ma túy xuyên quốc gia, thu giữ lượng lớn ma túy.
Trước đó, vào 20h ngày 3/7, tại phòng 1004, CT1, khu đô thị Văn Khê, phường La Khê, quận Hà Đông, Hà Nội, Cục Cảnh sát Phòng chống tội phạm về ma tuý, Bộ Công an phối hợp với Cục Cảnh sát biển Việt Nam, phòng PC47, Công an Quảng Ninh và Công an quận Hà Đông đã bắt giữ Nguyễn Duy Thắng (SN 1984) và Nguyễn Thị Thuỳ Dương (SN 1988), cùng trú ở Mường Sa, Mộc Châu, Sơn La.
|
|![]()
|Tang vật vụ án.
|
Cơ quan Công an thu giữ 89 bánh heroin, 33.800 viên ma tuý tổng hợp, 1 kg ma tuý tổng hợp dạng tinh thể (đá), 1 khẩu súng K59, 6 viên đạn và 1 xe ô tô Civic. Ngoài ra cơ quan Công an còn thu giữ được 15.000 USD, 50 triệu đồng và các tang vật, tài liệu có liên quan khác.
Tiếp đó, cơ quan Công an bắt giữ 7 đối tượng khác, thu giữ 200 gram ma túy tổng hợp dạng tinh thể (đá), 4 xe ô tô, 100 triệu đồng, cùng các tài liệu có liên quan.
Thực hiện ý kiến chỉ đạo của Lãnh đạo Bộ Công an, cơ quan điều tra đã xác lập chuyên án 006N, tiến hành đấu tranh với đường dây mua bán, vận chuyển trái phép ma túy từ Lào vào Việt Nam và đưa sang Trung Quốc tiêu thụ.
Ở giai đoạn 1 của chuyên án, cơ quan Công an đã bắt giữ được 8 đối tượng trong đường dây, ra quyết định truy nã 6 đối tượng khác. Số ma tuy thu giữ được là 80.006 viên MTTH và 1 gói ma túy tổng hợp dạng tinh thể cùng 1,5 tỷ đồng, 2 xe ô tô...
Các đối tượng bị bắt khai nhận, chúng đã mua bán, vận chuyển trót lọt 625 bánh heroin, 15 kg ma túy tổng hợp dạng tinh thể (đá) từ Lào vào Việt Nam sau đó đưa sang Trung Quốc tiêu thụ qua tuyến biên giới thuộc các tỉnh Sơn La, Hòa Bình, Quảng Trị, Hà Tĩnh, Quảng Ninh và Lạng Sơn.
Các đối tượng trong đường dây ma túy này cũng đã mua và vận chuyển hàng trăm ngàn viên ma túy tổng hợp từ Trung Quốc về Việt Nam tiêu thụ.
Xét thấy đây là đường dây ma túy lớn, cần phải huy động tối đa lực lượng, phương tiện, kinh phí để tập trung điều tra, triệt xóa, Bộ Công an đã quyết định thành lập Ban chỉ đạo điều tra chuyên án để điều tra, bóc gỡ triệt để đường dây tội phạm này.
Chiều 5/7, Thiếu tướng Nguyễn Anh Tuấn, Cục trưởng Cục CSĐT tội phạm về ma túy (C47), Bộ Công an cho biết: Sau khi một số đối tượng trong đường dây ma túy này bị bắt giữ, các đối tượng khác ở bên ngoài vẫn tiếp tục mua bán và vận chuyển ma túy với số lượng lớn.
|
|![]()
|Lãnh đạo Bộ Công an khen thưởng các đơn vị phá án.
|
Đến đêm 3, rạng sáng 4/7, Cục C47, phối hợp với các đơn vị khác đã “tung lưới”, tóm gọn 2 đối tượng, thu giữ 89 bánh heroin, 33.800 viên ma tuý tổng hợp, 1 kg ma tuý tổng hợp dạng tinh thể (đá)...
Lần “tung lưới” này, một số đối tượng đã bỏ trốn nên C47 đã thực hiện phương án phối kết hợp với Công an Hòa Bình để đón lõng các đối tượng. Lực lượng chuyên án đã kịp thời thông báo Công an tỉnh Hòa Bình thắt chặt đường đi của bọn tội phạm.
Các mũi trinh sát được huy động chốt chặt ở Mộc Châu, Sơn La để kịp thời bắt giữ các đối tượng. Và chính trong đêm 3, rạng sáng ngày 4/7, một nhóm tội phạm ma túy khác đã lọt vào ổ phục kích của các trinh sát.
Tổ công tác tại địa bàn xã Loóng Luông, Mộc Châu, Sơn La đã phát hiện xe ô tô tải mang BKS 29C- 13.389 có nhiều biểu hiện nghi vấn. Tiến hàng kiểm tra, các trinh sát phát hiện trên xe có 42 bánh heroin. Đối tượng lái xe là Sồng A Tếch (SN 1971, ở xã Pà Cò, Mai Châu, Hòa Bình. Vụ việc này được giao cho Cồn an tỉnh Sơn La thụ lý điều tra.
Cũng trong chiều 5/7, lãnh đạo Bộ Công an cũng đã khen thưởng các đơn vị phá án mỗi đơn vị 10 triệu đồng vì đã hoàn thành xuất sắc chuyên án.
<>T.Nhung
[Tin tức](http://www.tinmoi.vn/C/Tin-tuc) [>>Xem thêm](http://www.tinmoi.vn/lienquan/bat-vu-ma-tuy-cuc-lon-o-ha-noi-960200.html)
-
[Loạn cà phê thiếu nữ đi "cà kheo" ở Sài Gòn (17/04)](http://www.tinmoi.vn/loan-ca-phe-thieu-nu-di-ca-kheo-o-sai-gon-011302476.html)
-
[Nỗi đau người mẹ chứng kiến con gái bị xe máy chở 3 đâm chết (17/04)](http://www.tinmoi.vn/noi-dau-nguoi-me-chung-kien-con-gai-bi-xe-may-cho-3-dam-chet-011302451.html)
-
[Nữ tiếp viên Vietnam Airlines bị Nhật bắt giữ sắp về nước (17/04)](http://www.tinmoi.vn/thong-tin-moi-nhat-ve-vu-nu-tiep-vien-vietnam-airlines-bi-nhat-tam-giu-011302433.html)
-
[2 trẻ tử vong, 1.000 ca mắc sởi trong 1 ngày (17/04)](http://www.tinmoi.vn/2-tre-tu-vong-1000-ca-mac-soi-trong-1-ngay-011302426.html)
-
[Danh sách nạn nhân vụ tai nạn thảm khốc trên cao tốc Trung Lương (17/04)](http://www.tinmoi.vn/danh-sach-nan-nhan-vu-tai-nan-tham-khoc-tren-cao-toc-trung-luong-011302403.html)

WARC-Truncated: length

Content-Type: text/html

Vary: Accept-Encoding


text:
Keywords:phim bo, phim hong kong, phim han quoc, phim tam ly, phim 18, hai kich, phim hoat hinh, tan co, cai luong, webcam videos
Category:Video, Phim, Hài Kịch, Nấu Ăn, Nhạc Việt Nam, Nhạc Hàn Quốc, Nhạc Vàng, Phim Việt Nam, Phim Trung Quốc, Phim Hồng Kông, Phim Nhật Bản, Phim Hàn Quốc, Phim Đài Loan, Phim Thái Lan, Phim Hành Động, Phim Hoạt Hình, Phim Tâm Lý, Phim Viễn Tưởng, Phim Dã Sử, Phim Kinh Dị - Ma, Phim Hài, Phim Tình Cảm, Phim Võ Thuật, Phim Thần Thoại, Tân Cổ - Cải Lương, Trang Điểm - Làm Đẹp, Việt Karaoke, Webcam Videos, Phim 18+, Hong Kong Movie, Hong Kong Drama, Japanese Drama, Japanese Movie, Chinese Drama, Chinese Movie, Korean Drama, Korean Show, Korean Movie, Hollywood Drama, Taiwan Movie, Taiwan Drama
Disclaimer: VideosViet.Com is a video search engine that indexing and organizing videos on the web. Everyday 1,000+ new videos, phim, ca nhac, hai kich, phong su.

Server: cloudflare-nginx

Content-Type: text/html; charset=utf-8

Set-Cookie: __cfduid=da0d8d94deed653398f8924692f6ec5ce1397790894510; expires=Mon, 23-Dec-2019 23:50:00 GMT; path=/; domain=.videosviet.com; HttpOnly

Cache-Control: private, max-age=604800


text:
Mới Nhất
Thông báo cứu trợ
Thông báo giáo hội phật giáo Việt Nam
Hành trình yêu thương Quảng Nam – Huế - Quảng Bình (kỳ 2)
CN PHỤC SINH: Niềm vui Phục Sinh
Kinh Pháp Bảo Đàn (Kỳ 11)
Vệ Binh Duyên Hải tịch thu ma túy trị giá $350 triệu
Cựu viên chức Bell nhận án 12 năm tù
Sàn giao dịch Bitcoin Mt. GOX sẽ không tái kinh doanh
Nổi Bật Nhất
Nhạc kịch “Shrek the musical” của sân khấu Broadway tại nhà hát Quận Cam
Giáo sư Việt nghiên cứu tìm dấu hiệu chớm bệnh
Nghệ sĩ Việt Dzũng đã qua đời
Phát Hành Niên Giám 2014 và Báo Xuân Viễn Đông Năm Giáp Ngọ
Gia đình đau khổ trước cái chết của con ở Sài Gòn
Họp báo về vụ Phạm Kim tại Santa Ana
Mỹ thách Trung Cộng, cho B-52 bay vào vùng ‘nhận diện phòng không’
Lễ Rằm ‘tâm trong sáng như ánh trăng’ của Thích Ca Thiền Viện
Lê Văn Khoa, một người Việt Nam
Vụ cảnh sát nổ súng tại Đồng Nai: Thiếu tá lôi đầu đánh đại úy, bị bắn thiệt mạng
Đói cho sạch, rách cho... thơm
Bắc Hàn dưới thời Kim Jong Un: Những mối lo ngại mới
Trung Cộng lập vùng phòng không, bao phủ đảo Nhật
Người vô gia cư được thuê xếp hàng mua iPhone
Anh hùng bị tố khai gian, cướp công đồng đội
Emily Dương đăng quang Hoa Hậu Mỹ gốc Á Thái Bình Dương
Subaru, Cadillac được điểm cao trong thử nghiệm tránh tai nạn
Tài xế Việt tông chết phụ nữ băng qua đường
Dọa mẹ già, một phụ nữ Việt bị cảnh sát bắn chết
Phụ nữ Việt bị chồng đâm chết trong nhà
Mua hàng rồi có nên trả lại? (bài 2)
Hàng mua rồi có nên trả lại (bài 1)
Mua hàng giá rẻ qua đấu giá? (bài 2)
Mua bảo hiểm sức khỏe: HMO và PPO khác biệt thế nào?
Bảo hiểm Obamacare áp dụng với tôi như thế nào?
Tìm hiểu Obamacare: Chương trình Silver Plan
Bảo hiểm y tế: Tìm hiểu Out of Pocket Expense (bài 3)
Xem xét giá trị một chương trình bảo hiểm (bài 2)
So sánh thiệt hơn giữa các chương trình bảo hiểm y tế (bài 1)
Bảo hiểm Obamacare: Làm sao mua với giá rẻ nhất
Mọi chi tiết liên quan hoặc đăng Quảng Cáo xin quý khách liên lạc về địa chỉ: 14891 Moran Street, Westminster, Ca 92683-5599, USA
Email: viendong@aol.com hoặc baoviendong@aol.com
Phone: (1)714-379-2851 hoặc Fax: 714-379-2853 - Chúng tôi nhận Credit Card và PayPal.
Powered by Kanovar. Copyright © 2013 by VIỄN ĐÔNG DAILY NEWS.

Cache-Control: private


text:
Mẫu tem về Hùng Vương phát hành năm 2000.
Truyền thuyết kể rằng: Âu Cơ kết hôn với Lạc Long Quân sinh ra một bọc trăm trứng, nở ra 100 người con. Về sau, Lạc Long Quân chia tay với Âu Cơ; 50 người con theo cha xuống biển, 50 người con theo mẹ lên núi. Người con cả theo mẹ lên núi được tôn làm vua, gọi là Hùng Vương. Ông đặt tên nước là Văn Lang, chia nước thành 15 bộ. Theo truyền thuyết thì họ Hùng truyền đến 18 đời vua.
Mẫu tem về Lăng Hùng Vương phát hành năm 1960.
Ngày giỗ Tổ Hùng Vương được tổ chức hàng năm vào ngày 10 tháng 3 (âm lịch) tại Đền Hùng trên núi Nghĩa Lĩnh tại xã Hy Cương, TP. Việt Trì, tỉnh Phú Thọ. Đây là ngày hội truyền thống của dân tộc để tưởng nhớ đến công ơn các Vua Hùng đã có công dựng nước. Dân gian đã có câu ca dao:
Dù ai đi ngược về xuôi
Nhớ ngày giỗ Tổ mùng Mười tháng Ba
Nhớ ngày giỗ Tổ mùng Mười tháng Ba
Mẫu tem về Hùng Vương phát hành năm 1974.
Ngày giỗ Tổ Hùng Vương đã được Nhà nước Việt Nam công nhận là một trong những ngày quốc lễ. Bắt đầu từ năm 2007, người lao động được phép nghỉ trong ngày lễ này hàng năm.

markdown:
![](../data/2009/04/04/10551665_data_2008_05_31_19115567_product.jpg)
Mẫu tem về Hùng Vương phát hành năm 2000.
Truyền thuyết kể rằng: Âu Cơ kết hôn với Lạc Long Quân sinh ra một bọc trăm trứng, nở ra 100 người con. Về sau, Lạc Long Quân chia tay với Âu Cơ; 50 người con theo cha xuống biển, 50 người con theo mẹ lên núi. Người con cả theo mẹ lên núi được tôn làm vua, gọi là Hùng Vương. Ông đặt tên nước là Văn Lang, chia nước thành 15 bộ. Theo truyền thuyết thì họ Hùng truyền đến 18 đời vua.
![](../data/2009/04/04/10560001_data_2009_04_02_21514695_product.jpg)
Mẫu tem về Lăng Hùng Vương phát hành năm 1960.
Ngày giỗ Tổ Hùng Vương được tổ chức hàng năm vào ngày 10 tháng 3 (âm lịch) tại Đền Hùng trên núi Nghĩa Lĩnh tại xã Hy Cương, TP. Việt Trì, tỉnh Phú Thọ. Đây là ngày hội truyền thống của dân tộc để tưởng nhớ đến công ơn các Vua Hùng đã có công dựng nước. Dân gian đã có câu ca dao:
Dù ai đi ngược về xuôi
Nhớ ngày giỗ Tổ mùng Mười tháng Ba
Nhớ ngày giỗ Tổ mùng Mười tháng Ba
Mẫu tem về Hùng Vương phát hành năm 1974.
Ngày giỗ Tổ Hùng Vương đã được Nhà nước Việt Nam công nhận là một trong những ngày quốc lễ. Bắt đầu từ năm 2007, người lao động được phép nghỉ trong ngày lễ này hàng năm.

Accept-Ranges: bytes


text:
Tự nhiên tạo ra con người làm gì để rồi con người hủy hoại tự nhiên!
Theo tự nhiên thì con người là một động vật máu nóng nhưng chính con người đang làm cho máu của mình lạnh đi! Con người đã tạo ra nhiều thứ nhưng đồng thời cũng hủy diệt nhiều thứ. Con người bây giờ có thể lợi dụng, chỉ chích, chê bai, thậm chí có thể giết hại nhau chỉ vì lợi ích của mình. Con người là động vật thông minh nhất nhưng cũng là những con thú tàn ác nhất. Nếu những con mãnh thú hiểu được hành động của con người thì chắc chúng cũng phải rùng mình sợ hãi. Theo bạn con người có nên tồn tại hay không ? TẠI SAO?????
tồn tại để hủy diệt và hủy diệt lại trở về với tự nhiên! (chắc kiểu này thêm trận đại hồng thủy nửa quá) ^_^
đâu phải ai cũng phá hoại thiên nhiên đâu. Cho nên con người vẩn nên tồn tại để sữa chữa sai lầm mà mình gây ra mặc dù là rất khó. Con người không xấu chỉ là họ không kiềm chế đc. tham vọng của mình thôi rồi thời gian sẽ thay đổi tất cả
Vậy thì vì sao ông trời lại tao ra tự nhiên .
vậy phải hỏi tại sao lại tạo ra vụ nổ Big Bang mới đúng!
vậy các bạn đã biết làm j` đẻ bảo vệ tự nhiên chưa hay chỉ nói chơi cho vui thôi?
bạn nói vậy là không đúng có người hủy hoại thì có người bảo vệ mà
nột vấn đề luôn cò 2 mặt mà bạn
Mời các bạn ghé thăm trang này http://kienthuc360.net
Dack Man ui, ai trên chữ kí mà đẹp dữ dzậy?? Xinh wa' đi >_<
Hidden Content
con người cũng chỉ là 1 phần của quá trình tiến hóa thôi
Nước mắt lúc nào cũng rơi, trong lòng luôn luôn lạnh giá, tủi nhục chỉ 1 mình ta hưởng, ta luôn lạc lõng. Ta ghét cuộc sống... Có sự thanh thản nào hơn so với cõi đời này.... Hidden Content
Nếu con người không phá hoại thì đâu cần bảo vệ. Mình thấy nếu thế giới này không có con người sẽ tốt hơn
nếu ko có con người thì làm gì có diễn đàn này ^.^
Gold King nếu ko có con người thì làm gì có diễn đàn này ^.^ Đúng ! có con người thì có tất cả, kể cả xấu lẩn tốt nhưng tốt thì nhiều hơn xấu
Có mình tui bình chọn là ko àh
dinh kien Có mình tui bình chọn là ko àh cả tui nữa mà
Con người được thiên nhiên tạo ra để làm ra
1. Chiến tranh, độc ác, căm thù, hủy diệt và chết chóc...
2. Một bông hoa đẹp, một nụ cười, một ánh mắt của 1 em bé dễ thương..
Con người được thiên nhiên tạo ra trên đời để cảm nhận
1. Nỗi đau của chiến tranh, của mất mát đau thương, của chia ly buồn tủi,...
2. Hạnh phúc từ tình yêu, bạn bè, gia đình, hay đơn giản là nhìn thấy bình minh mỗi buổi sáng
Quy định và Điều khoản [V-Z]
Diễn Đàn Con

Set-Cookie: vbseo_loggedin=deleted; expires=Thu, 01-Jan-1970 00:00:01 GMT; path=/

Pragma: private


text:
- 09:20 PM 08/11/2013 #1
E đang phân vân, e có bộ dưỡng gồm: toner, essence, emulsion, cream, e đang phân vân thứ tự giữa essence và emulsion, ko biết cái nào trước sau, đọc thì có bài ghi là dùng essence rồi mới tới emulsion, nhưng có bài lại ghi emulsion rồi essence, e gọi lên tổng đải tư vấn laneige họ lại chỉ như vậy, mà thấy nhiều bài lại ghi essence rồi emulsion, nên e muốn hỏi ý kiến các chị, cái nào mới đúng ạ? e cám ơn rất nhiều
-
-
Bài tương tự
- Kem dưỡng trắng da Pond's và Nivea. Cái nào tốt?
- Dưỡng da mặt và body = PP tự nhiên ( tập hợp kinh nghiệm bản thân )
- Dưỡng da tonymoly và thefaceshop loại nào tốt hơn?
- Vừa bị mụn vừa bị sẹo nên điều trị cái nào trước? - Chuyên gia đã trả lời
- [Lỗi] Về thời gian post bài và thứ tự sắp xếp bài viết và Topic từ cũ đến mới bị lộn xộn. Nhờ TechAdmin check giùm

markdown:
- 09:20 PM 08/11/2013
[#1]
E đang phân vân, e có bộ dưỡng gồm: toner, essence, emulsion, cream, e đang phân vân thứ tự giữa essence và emulsion, ko biết cái nào trước sau, đọc thì có bài ghi là dùng essence rồi mới tới emulsion, nhưng có bài lại ghi emulsion rồi essence, e gọi lên tổng đải tư vấn laneige họ lại chỉ như vậy, mà thấy nhiều bài lại ghi essence rồi emulsion, nên e muốn hỏi ý kiến các chị, cái nào mới đúng ạ? e cám ơn rất nhiều
-
-
## Bài tương tự
-
[Kem dưỡng trắng da Pond's và Nivea. Cái nào tốt?](http://www.webtretho.com/forum/f3270/kem-duong-trang-da-ponds-va-nivea-cai-nao-tot-555432/?utm_medium=web&utm_source=click_web_similarthreads&utm_campaign=similar_threads)
-
[Dưỡng da mặt và body = PP tự nhiên ( tập hợp kinh nghiệm bản thân )](http://www.webtretho.com/forum/f3268/duong-da-mat-va-body-pp-tu-nhien-tap-hop-kinh-nghiem-ban-than-1699456/?utm_medium=web&utm_source=click_web_similarthreads&utm_campaign=similar_threads)
-
[Dưỡng da tonymoly và thefaceshop loại nào tốt hơn?](http://www.webtretho.com/forum/f3270/duong-da-tonymoly-va-thefaceshop-loai-nao-tot-hon-1625851/?utm_medium=web&utm_source=click_web_similarthreads&utm_campaign=similar_threads)
-
[Vừa bị mụn vừa bị sẹo nên điều trị cái nào trước? - Chuyên gia đã trả lời](http://www.webtretho.com/forum/f1740/vua-bi-mun-vua-bi-seo-nen-dieu-tri-cai-nao-truoc-chuyen-gia-da-tra-loi-767470/?utm_medium=web&utm_source=click_web_similarthreads&utm_campaign=similar_threads)
-
[[Lỗi] Về thời gian post bài và thứ tự sắp xếp bài viết và Topic từ cũ đến mới bị lộn xộn. Nhờ TechAdmin check giùm](http://www.webtretho.com/forum/f170/loi-ve-thoi-gian-post-bai-va-thu-tu-sap-xep-bai-viet-va-topic-tu-cu-den-moi-bi-lon-xon-nho-techadmin-check-gium-627700/?utm_medium=web&utm_source=click_web_similarthreads&utm_campaign=similar_threads)

Server: PEN


text:
Bạn đang tìm kiếm thông tin về từ khóa hinh girl xinh 14 tuoi? Tại đây chúng tôi có đường dẫn tới thông tin liên quan đến từ khóa: hinh girl xinh 14 tuoi, được tìm kiếm từ khắp nơi trên Internet. Chúng tôi hy vọng bạn sẽ hài lòng với những thông tin về hinh girl xinh 14 tuoi. Xin hãy theo đường dẫn sau để tới trang thông tin về hinh girl xinh 14 tuoi.
Xem thêm thông tin về hinh girl xinh 14 tuoi trên trang thông tin Xinh kiêu.
Hoặc xem ảnh, video hot nhất của hinh girl xinh 14 tuoi tại kênh giải trí Xinh kiêu.
game nhin trom gai tam | game nhin trom nguoi dep tam mien phi | game nhin trom sec | game nong trai com | game nu de japan net | game nu hon len giuong | game nu y ta coi ao | game nuoi nhim | game nusinh danh nhau tut quan ao con gai | game o chuon hom nhau | game o chuong hon nhau | game oan tu lot quan loi 9x | game oan tu ti coi quan chip | game oẳn tù tì lột quần áo | game oan tu ti voi gai | game oan tu ti voi nguoi dep | game oan tu xi coi quan ao girl xinh | game oan tu xi coi quan ao lot 18 | game oan tu xi dit nhau | game om nhau tren giuong | game phim vang org | game quan lot | game quan ly khach san dit nhau | game quanlinongtrai | game quay co giao | game quay len hot | game quay len nu sinh tam | game quay pha co giao | game quay trom gai hon nhau | game ro dit con gai | game sẽ 9x | game sẽ hay 9x | game sẽ pha trinh | game sec dia nguc | game sec dit nhau | game sec dit nhau voi nguoi dep nhat the gioi | game sec lot quan ao | game sec xi | game sech | game sech dit nhau | game sech nen giuong coi quan | game sech si | game sêch xi | game sechay | game sechxi | game secnhat | game set | game set cap cap3 | game set cap3 | game set com | game set xi | game sey du nhau | game show 18 girl xinh | game show 18 khong che | game show dit nhau cua nhat | game show dit nhau nhat | game show dit nhau nhat ban | game show gia dinh dit nhau cua nhat | game show han quoc 18 | game show han quoc sẽ | game show japan khong che | game show loan luan | game show loan luan gia dinh nhat ban 18 | game show loan luan nhat ban | game show nhat ban 100% không che | game show nhat ban 18 không che | game show nhat ban khong che | game show nhật bản ko che | game show nhat ban me ocn loan luan | game show nhat ban vo chong | game show nhat khong che | game shown nhat ban 18 | game sờ bím | game so buom | game so dit gai | game sờ lén | game so loan luan nhat ban | game sờ lồn | game sờ lồn gái xinh | game so lon tren giuong | game so trom bim | game sờ lén | game su buom | game swf nguoi lon | game tang tinh tren giung mien phi | game tham tu chup hinh hon nhau | game thay do | game thay do cho but be | game thay do hentai | game thay do lot | game thay quan ao 18 | game thay quan ao cho nguoi lon | game thay quan ao cho nu sinh | game thay quan ao lot | game thay quan ao lot cho bup | game thay quan ao setsi | game thay thay do 18 | game thay đồ cho búp bê em bé | game thay đồ xexy | game thiet ke phong ngu |
Thông tin liên quan hinh girl xinh 14 tuoi
Loading
SỰ KIỆN TIÊU ĐIỂM
SỰ KIỆN TIÊU ĐIỂM
SỰ KIỆN TIÊU ĐIỂM

markdown:
Bạn đang tìm kiếm thông tin về từ khóa hinh girl xinh 14 tuoi? Tại đây chúng tôi có đường dẫn tới thông tin liên quan đến từ khóa: hinh girl xinh 14 tuoi, được tìm kiếm từ khắp nơi trên Internet. Chúng tôi hy vọng bạn sẽ hài lòng với những thông tin về hinh girl xinh 14 tuoi. Xin hãy theo đường dẫn sau để tới trang thông tin về hinh girl xinh 14 tuoi.
### Xem thêm thông tin về
### Hoặc xem ảnh, video hot nhất của
### Xem thêm thông tin về
[hinh girl xinh 14 tuoi](http://xinhkieu.com/online/hinh-girl-xinh-14-tuoi.html) trên trang thông tin Xinh kiêu.
### Hoặc xem ảnh, video hot nhất của
[hinh girl xinh 14 tuoi](http://xinhkieu.com/search/hinh-girl-xinh-14-tuoi/) tại kênh giải trí Xinh kiêu. [game nhin trom gai tam](http://xem.xinhkieu.com/game-nhin-trom-gai-tam.html)| [game nhin trom nguoi dep tam mien phi](http://xem.xinhkieu.com/game-nhin-trom-nguoi-dep-tam-mien-phi.html)| [game nhin trom sec](http://xem.xinhkieu.com/game-nhin-trom-sec.html)| [game nong trai com](http://xem.xinhkieu.com/game-nong-trai-com.html)| [game nu de japan net](http://xem.xinhkieu.com/game-nu-de-japan-net.html)| [game nu hon len giuong](http://xem.xinhkieu.com/game-nu-hon-len-giuong.html)| [game nu y ta coi ao](http://xem.xinhkieu.com/game-nu-y-ta-coi-ao.html)| [game nuoi nhim](http://xem.xinhkieu.com/game-nuoi-nhim.html)| [game nusinh danh nhau tut quan ao con gai](http://xem.xinhkieu.com/game-nusinh-danh-nhau-tut-quan-ao-con-gai.html)| [game o chuon hom nhau](http://xem.xinhkieu.com/game-o-chuon-hom-nhau.html)| [game o chuong hon nhau](http://xem.xinhkieu.com/game-o-chuong-hon-nhau.html)| [game oan tu lot quan loi 9x](http://xem.xinhkieu.com/game-oan-tu-lot-quan-loi-9x.html)| [game oan tu ti coi quan chip](http://xem.xinhkieu.com/game-oan-tu-ti-coi-quan-chip.html)| [game oẳn tù tì lột quần áo](http://xem.xinhkieu.com/game-oẳn-tù-tì-lột-quần-áo.html)| [game oan tu ti voi gai](http://xem.xinhkieu.com/game-oan-tu-ti-voi-gai.html)| [game oan tu ti voi nguoi dep](http://xem.xinhkieu.com/game-oan-tu-ti-voi-nguoi-dep.html)| [game oan tu xi coi quan ao girl xinh](http://xem.xinhkieu.com/game-oan-tu-xi-coi-quan-ao-girl-xinh.html)| [game oan tu xi coi quan ao lot 18](http://xem.xinhkieu.com/game-oan-tu-xi-coi-quan-ao-lot-18.html)| [game oan tu xi dit nhau](http://xem.xinhkieu.com/game-oan-tu-xi-dit-nhau.html)| [game om nhau tren giuong](http://xem.xinhkieu.com/game-om-nhau-tren-giuong.html)| [game phim vang org](http://xem.xinhkieu.com/game-phim-vang-org.html)| [game quan lot](http://xem.xinhkieu.com/game-quan-lot.html)| [game quan ly khach san dit nhau](http://xem.xinhkieu.com/game-quan-ly-khach-san-dit-nhau.html)| [game quanlinongtrai](http://xem.xinhkieu.com/game-quanlinongtrai.html)| [game quay co giao](http://xem.xinhkieu.com/game-quay-co-giao.html)| [game quay len hot](http://xem.xinhkieu.com/game-quay-len-hot.html)| [game quay len nu sinh tam](http://xem.xinhkieu.com/game-quay-len-nu-sinh-tam.html)| [game quay pha co giao](http://xem.xinhkieu.com/game-quay-pha-co-giao.html)| [game quay trom gai hon nhau](http://xem.xinhkieu.com/game-quay-trom-gai-hon-nhau.html)| [game ro dit con gai](http://xem.xinhkieu.com/game-ro-dit-con-gai.html)| [game sẽ 9x](http://xem.xinhkieu.com/game-sẽ-9x.html)| [game sẽ hay 9x](http://xem.xinhkieu.com/game-sẽ-hay-9x.html)| [game sẽ pha trinh](http://xem.xinhkieu.com/game-sẽ-pha-trinh.html)| [game sec dia nguc](http://xem.xinhkieu.com/game-sec-dia-nguc.html)| [game sec dit nhau](http://xem.xinhkieu.com/game-sec-dit-nhau.html)| [game sec dit nhau voi nguoi dep nhat the gioi](http://xem.xinhkieu.com/game-sec-dit-nhau-voi-nguoi-dep-nhat-the-gioi.html)| [game sec lot quan ao](http://xem.xinhkieu.com/game-sec-lot-quan-ao.html)| [game sec xi](http://xem.xinhkieu.com/game-sec-xi.html)| [game sech](http://xem.xinhkieu.com/game-sech.html)| [game sech dit nhau](http://xem.xinhkieu.com/game-sech-dit-nhau.html)| [game sech nen giuong coi quan](http://xem.xinhkieu.com/game-sech-nen-giuong-coi-quan.html)| [game sech si](http://xem.xinhkieu.com/game-sech-si.html)| [game sêch xi](http://xem.xinhkieu.com/game-sêch-xi.html)| [game sechay](http://xem.xinhkieu.com/game-sechay.html)| [game sechxi](http://xem.xinhkieu.com/game-sechxi.html)| [game secnhat](http://xem.xinhkieu.com/game-secnhat.html)| [game set](http://xem.xinhkieu.com/game-set.html)| [game set cap cap3](http://xem.xinhkieu.com/game-set-cap-cap3.html)| [game set cap3](http://xem.xinhkieu.com/game-set-cap3.html)| [game set com](http://xem.xinhkieu.com/game-set-com.html)| [game set xi](http://xem.xinhkieu.com/game-set-xi.html)| [game sey du nhau](http://xem.xinhkieu.com/game-sey-du-nhau.html)| [game show 18 girl xinh](http://xem.xinhkieu.com/game-show-18-girl-xinh.html)| [game show 18 khong che](http://xem.xinhkieu.com/game-show-18-khong-che.html)| [game show dit nhau cua nhat](http://xem.xinhkieu.com/game-show-dit-nhau-cua-nhat.html)| [game show dit nhau nhat](http://xem.xinhkieu.com/game-show-dit-nhau-nhat.html)| [game show dit nhau nhat ban](http://xem.xinhkieu.com/game-show-dit-nhau-nhat-ban.html)| [game show gia dinh dit nhau cua nhat](http://xem.xinhkieu.com/game-show-gia-dinh-dit-nhau-cua-nhat.html)| [game show han quoc 18](http://xem.xinhkieu.com/game-show-han-quoc-18.html)| [game show han quoc sẽ](http://xem.xinhkieu.com/game-show-han-quoc-sẽ.html)| [game show japan khong che](http://xem.xinhkieu.com/game-show-japan-khong-che.html)| [game show loan luan](http://xem.xinhkieu.com/game-show-loan-luan.html)| [game show loan luan gia dinh nhat ban 18](http://xem.xinhkieu.com/game-show-loan-luan-gia-dinh-nhat-ban-18.html)| [game show loan luan nhat ban](http://xem.xinhkieu.com/game-show-loan-luan-nhat-ban.html)| [game show nhat ban 100% không che](http://xem.xinhkieu.com/game-show-nhat-ban-100%-không-che.html)| [game show nhat ban 18 không che](http://xem.xinhkieu.com/game-show-nhat-ban-18-không-che.html)| [game show nhat ban khong che](http://xem.xinhkieu.com/game-show-nhat-ban-khong-che.html)| [game show nhật bản ko che](http://xem.xinhkieu.com/game-show-nhật-bản-ko-che.html)| [game show nhat ban me ocn loan luan](http://xem.xinhkieu.com/game-show-nhat-ban-me-ocn-loan-luan.html)| [game show nhat ban vo chong](http://xem.xinhkieu.com/game-show-nhat-ban-vo-chong.html)| [game show nhat khong che](http://xem.xinhkieu.com/game-show-nhat-khong-che.html)| [game shown nhat ban 18](http://xem.xinhkieu.com/game-shown-nhat-ban-18.html)| [game sờ bím](http://xem.xinhkieu.com/game-sờ-bím.html)| [game so buom](http://xem.xinhkieu.com/game-so-buom.html)| [game so dit gai](http://xem.xinhkieu.com/game-so-dit-gai.html)| [game sờ lén](http://xem.xinhkieu.com/game-sờ-lén.html)| [game so loan luan nhat ban](http://xem.xinhkieu.com/game-so-loan-luan-nhat-ban.html)| [game sờ lồn](http://xem.xinhkieu.com/game-sờ-lồn.html)| [game sờ lồn gái xinh](http://xem.xinhkieu.com/game-sờ-lồn-gái-xinh.html)| [game so lon tren giuong](http://xem.xinhkieu.com/game-so-lon-tren-giuong.html)| [game so trom bim](http://xem.xinhkieu.com/game-so-trom-bim.html)| [game sờ lén](http://xem.xinhkieu.com/game-sờ-lén.html)| [game su buom](http://xem.xinhkieu.com/game-su-buom.html)| [game swf nguoi lon](http://xem.xinhkieu.com/game-swf-nguoi-lon.html)| [game tang tinh tren giung mien phi](http://xem.xinhkieu.com/game-tang-tinh-tren-giung-mien-phi.html)| [game tham tu chup hinh hon nhau](http://xem.xinhkieu.com/game-tham-tu-chup-hinh-hon-nhau.html)| [game thay do](http://xem.xinhkieu.com/game-thay-do.html)| [game thay do cho but be](http://xem.xinhkieu.com/game-thay-do-cho-but-be.html)| [game thay do hentai](http://xem.xinhkieu.com/game-thay-do-hentai.html)| [game thay do lot](http://xem.xinhkieu.com/game-thay-do-lot.html)| [game thay quan ao 18](http://xem.xinhkieu.com/game-thay-quan-ao-18.html)| [game thay quan ao cho nguoi lon](http://xem.xinhkieu.com/game-thay-quan-ao-cho-nguoi-lon.html)| [game thay quan ao cho nu sinh](http://xem.xinhkieu.com/game-thay-quan-ao-cho-nu-sinh.html)| [game thay quan ao lot](http://xem.xinhkieu.com/game-thay-quan-ao-lot.html)| [game thay quan ao lot cho bup](http://xem.xinhkieu.com/game-thay-quan-ao-lot-cho-bup.html)| [game thay quan ao setsi](http://xem.xinhkieu.com/game-thay-quan-ao-setsi.html)| [game thay thay do 18](http://xem.xinhkieu.com/game-thay-thay-do-18.html)| [game thay đồ cho búp bê em bé](http://xem.xinhkieu.com/game-thay-đồ-cho-búp-bê-em-bé.html)| [game thay đồ xexy](http://xem.xinhkieu.com/game-thay-đồ-xexy.html)| [game thiet ke phong ngu](http://xem.xinhkieu.com/game-thiet-ke-phong-ngu.html)|
### Thông tin liên quan
[hinh girl xinh 14 tuoi](/hinh-girl-xinh-14-tuoi.html)
Loading
SỰ KIỆN TIÊU ĐIỂM
SỰ KIỆN TIÊU ĐIỂM
SỰ KIỆN TIÊU ĐIỂM

Server: Apache

Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0

Pragma: no-cache

X-CacheDebug-1: Cache scriptkey is set to /index.php

X-CacheDebug-2: Cache varkey is set to GET=a:1:{s:7:"web_url";s:27:"hinh-girl-xinh-14-tuoi.html";}

X-CacheDebug-3: Cachekey is set to 9a17cde5ee7ad6a191c20e40aef69fb3

X-CacheDebug-5: v_data length: 36689

X-CacheDebug-6: quickcache_restore: 60 36689

X-CacheDebug-7: quickcache_restore: 62 is_array36689

X-CacheDebug-9: Data in cachefile /home/content/96/7067496/cache3/xk-9a17cde5ee7ad6a191c20e40aef69fb3 has expired

X-CacheDebug-10: No (valid) cachedata for 9a17cde5ee7ad6a191c20e40aef69fb3

X-CacheDebug-11: Callback happened

X-CacheDebug-12: Writing cached data to storage

X-CacheDebug-13: Starting wrote cachefile /home/content/96/7067496/cache3/xk-9a17cde5ee7ad6a191c20e40aef69fb3

X-CacheDebug-14: quickcache_filewrite wrote cachefile /home/content/96/7067496/cache3/xk-9a17cde5ee7ad6a191c20e40aef69fb3

X-CacheDebug-16: Successfully wrote cachefile /home/content/96/7067496/cache3/xk-9a17cde5ee7ad6a191c20e40aef69fb3


text:
ĐỀ CƯƠNG MÔN PASCAL
Câu 1: Viết chương trình nhập vào một số nguyên dương từ bàn phím (khi nhập có kiểm tra tính hợp lệ, nếu chưa thỏa mãn yêu cầu nhập lại) a, Hãy cho biết số đó có là số nguyên tố không. b, Lập chương trình tính tổng: S=1/1!+1/2!+....+1/n! TL: uses crt; var i,n :integer; s,p:real; begin { Nhap du lieu } clrscr; { lenh xoa man hinh } write('Nhap so n = '); readln(n); if n<=0 then writeln('Yeu cau nhap lai') else { Kiem tra so nguyen to} If (n=1)or(n=2)then writeln(' So vua nhap la so nguyen to ') else begin i:=2; while (i<=n) and (n mod i<> 0 )do i:=i+1; if i=n then writeln('So vua nhap la so nguyen to') else writeln('So vua nhap khong la so nguyen to'); end; { Tinh tong day } s:=0; p:=1; for i:=1 to n do begin p:=p*(1/i); s:=s+p; end; writeln('Tong s=',s:5:2); readln; end. Câu 2: Bạn có 100000đ đem gửi ngân hàng với lãi xuất 11%/tháng. Sau mỗi tháng tiền lại được nhập vào để tính lãi xuất tháng sau. Bạn muốn số tiền tăng lên thành x (x nhập từ bàn phím). Vậy phải gửi trong bao lâu. Hãy đưa kết quả lên màn hình theo số năm, số tháng cần gửi (Ví dụ: Bạn phải gửi 5 năm 7 tháng, nếu chưa đủ năm chỉ in đưa lên số tháng đã gửi). TL: uses crt ; varthang : Byte ; tien , lai , x : Real ; BEGIN clrscr ; writeln (' Chuong trinh tinh thoi gian rut tien lai ') ; write (' So tien lai muon rut ra : ') ; readln(x) ; tien := 1000 ; thang :=1 ; repeat lai := tien * 11 / 100 ; tien := tien + lai ; thang := thang + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ',thang mod 12,'thang .') ; writeln (' Khi do so tien ban rut ra duoc la ', tien:12:2 ,' dong .') ; readln ; END . Câu 3: Viết chương trình bằng ngôn ngữ pascal để: - Nhập từ bàn phím 3 số thực dương tùy ý. - Kiểm tra xem chúng có là số đo 3 cạnh tam giác không, nếu không đúng yêu cầu nhập lại. - Tính diện tích, đường cao ứng với cạnh a của tam giác đó. - In kết quả ra màn hình. TL: program_tamgiac; var a,b,c:integer; s,p,h:real; BEGIN write(' nhap canh a='); readln(a); write(' nhap canh b='); readln(b); write(' nhap canh c='); readln(c); writeln; { Kiem tra lap thanh ba canh cua tam giac} if(a<=0) or(b<=0)or(c<0) then writeln('yeu cau nhap lai') else Begin if(a+b>c)and(b+c>a)and(c+a>b) then begin writeln('Ban da nhap vao la mot tam giac'); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); h:=(2*s)/a; writeln; writeln('dien tich tam giac s=',s:5:2); writeln; writeln('duong cao tinh theo canh a la h=',h:5:2); end else writeln(' Ban da nhap vao khong la mot tam giac'); end; Readln; END. Câu 4: Viết chương trình nhập vào một số nguyên dương >=10 a, Hãy cho biết số đó có là số chính phương không. b, Thông báo lên màn hình số đó có bao nhiêu chữ số, tổng của các chữ số đó. TL: uses crt; var n,s,i,dem:integer; begin {Nhap du lieu} write('Nhap gia tri n='); readln(n); writeln; if n<=10 then writeln('Yeu cau nhap lai') else {Kiem tra so chinh phuong } begin i:=1; while(i<=n) and (sqrt(n) <> i) do i:= i+1; if i=n then writeln(n,'Khong la so chinh phuong ') else writeln(n,'laso chinh phuong'); end; writeln; {Dem tong so cac chu so co trong so nhap va dem so co trong so vua nhap} begin s:=0; dem:=0; while(n<>0 )do begin s:=s +n mod 10; n:=n div 10; dem:=dem+1; end; writeln('Tong cac so=',s); writeln; writeln('Tong cac chu so co trong so=', dem); end; readln; end. Câu 5: Nhập một mảng A các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau: a, Sắp xếp mảng đó theo thứ tự giảm dần. b, Chèn số nguyên x vào mảng sao cho mảng đó không mất đi tính sắp thứ tự. TL: uses crt; var n,x,i,j,tg,k:integer; A:array[1..5]of integer; begin {Nhap gia tri cho mang} clrscr; writeln(' Nhap gia tri cac phan tu mang'); Begin for i:=1 to 5 do begin write('A[',i,']='); readln(A[i]); end; writeln; {In mang vua nhap } writeln('Mang vua nhap'); for i:=1 to 5 do writeln(A[i]); writeln; end; {Sap xep mang giam dan} writeln('Mang sap xep giam dan'); begin for i:=1 to 4 do for j:=i+1 to 5 do if A[i]<=A[i,j] then max:= A[i,j]; s:=s+max; writeln('Max tren dong',i,'la',max); end; writeln; writeln('Tong phan tu lon nhat cua moi dong:',s); readln; end. Câu 7: Viết chương trình nhập vào mảng số nguyên A (không thể có 2 phần tử trùng nhau trong mảng). Trong quả trình nhập phải kiểm tra: Nếu phần tử vừa nhập vào đã có trong mảng thi không bổ sung vào mảng. In ra màn hình các phần tử của A đã được sắp xếp tăng dần. TL: Uses Crt; Type Mang=ARRAY[1..50] Of Integer; Var A,B:Mang; n,m:Byte; Function KiemTra(x:Integer; n:Byte; A:Mang):Boolean; Var i:Byte; Found: Boolean; Begin Found:=False; i:=1; While (i<=n) AND (not Found) Do If x=A[i] Then Found:=True Else i:=i+1; KiemTra:=Found; End; Procedure NhapMang(Var n:Byte; Var A:Mang); Var ch:Char; x:Integer; Begin n:=0; Repeat Write('x='); Readln(x); If not KiemTra(x,n,A) Then Begin n:=n+1; A[n]:=x; End; Writeln('An ESC de ket thuc nhap!'); ch:=Readkey; Until ch=#27; End; Procedure GiaoAB(n:Byte; A:Mang;m:Byte; B:Mang); Var i:Byte; Begin For i:=1 To n Do If KiemTra(A[i],m,B) Then Write(A[i]:4) End; Begin Clrscr; Writeln('Nhap mang A: '); NhapMang(n,A); Writeln('Nhap mang B: '); NhapMang(m,B); Writeln('Giao cua 2 mang A&B la: '); GiaoAB(n,A,m,B); Readln; End. Câu 8: Số Hoàn Hảo: là số có tổng các ước của nó (trừ nó) bằng chính nó, ví dụ: 6=1+2+3. Viết chương trình kiểm tra xem 1 số nguyên dương nhập từ bàn phím có là số hoàn hảo không. Có bao nhiêu số hoàn hảo từ 1 đến 2000, in ra các số đó. TL: uses crt; var n,i,j,s,k,dem:integer; Begin { Nhap dulieu} clrscr; write('Nhap so n='); readln(n); writeln; if n<1 then writeln('Yeu cau nhap lai') else begin {Kiem tra so hoan hao} s:=0; for i:=1 to n-1 do begin if n mod i=0 then s:=s+1; end; if s=n then writeln('n,La so hoan hao ') else writeln(n,'Khong la so hoan hao '); end; { Dem so hoan hao va in ra man hinh nhung so do} writeln; writeln('Cac so hoan hao tu 1 den 2000 la:'); begin dem:=0; for i:= 1 to 2000 do begin s:=0; for j:= 1 to i-1 do if ( i mod j = 0) then s:= s+ j; if(s=i) then begin writeln(i); end; end; writeln('Tong so hoan hao la :', dem); end; readln; end. Câu 9: Cho một mảng số nguyên gồm n phần tử, tìm dãy con có m phần tử (ma[i,j] then min:=a[i,j]; end; write('la so nho nha:',min); readln; end. Câu 12: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có M dòng, N cột (M>5, N>6) các phần tử là các số nguyên lớn hơn 2 và nhỏ hơn 100 được nhập từ bàn phím. b, Đếm số các phần tử chẵn của mảng. c, In ra màn hình giá trị dương lớn nhất của mảng. TL: uses crt; var i,j,s,max,dem,m,n:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap gia tri cua mang} writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if (m<5) or (n<6) then begin writeln('yeu cau nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:= 1 to m do for j:= 1 to n do begin write('A[',i,',',j,']='); readln( A[i,j]); if( A[i,j] <2 ) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh} clrscr; writeln('Mang vua nhap:'); for i:= 1 to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; {Dem cac so chan } writeln; dem:=0; for i:= 1 to m do for j:= 1 to n do if A[i,j]mod 2= 0 then dem:= dem +1; writeln('Tong cac so chia het cho 2 =',dem); writeln; {Hien thi cac phan tu lon nhat cua mang} max:=A[i,j]; for i:= 1 to m do for j:= 1 to n do if (A[i,j]>0) and (max<=A[i,j]) then max:=A[i,j]; writeln('So nguyen duong lon nhat cua mang la:', max); readln; end. Câu 13: Viết chương trình tạo mảng 5 dòng, 5 cột với các phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phím: a, Cho biết mảng có bao nhiêu số lẻ không chia hết cho 5 b, Tính tổng các phần tử nằm hình vuông ngoài cùng của mảng. TL: uses crt; var i,j,s,s1,s2,s3,s4,max,dem:integer; A:array[1..5,1..5] of integer; begin clrscr; {Nhap gia tri cho mang} writeln('Nhap cac phantu mang:'); for i:=1 to 5 do for j:=1 to 5 do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j]<5) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh } clrscr; writeln('Mang vua nhap:'); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j],','); writeln; end; {Dem cac so le khong chia het cho 5} writeln; dem:=0; for i:= 1 to 5 do for j := 1 to 5 do if (A[i,j] mod 2 <> 0 ) and (A[i,j] mod 5 <> 0) then dem := dem+1; writeln('Tong cac so le khong chia het cho 5 = ',dem); writeln; {Tinh tong cac so tren hinh vuong ngoai cung cua mang} s1:=0; for i:= 1 to 1 do for j := 1 to 5 do s1:= s1+A[i,j]; s2:=0 ; for i := 5 to 5 do for j:=1 to 5do s1 :=s1+ A[i,j]; s3:=0 ; for i := 1 to 5 do for j:=1 to 1 do s1 :=s1+ A[i,j]; s4:=0 ; for i := 1 to 5 do for j:=5 to 5 do s1 :=s1+ A[i,j]; s:=s1+s2+s3+s4; writeln('Tong cac so tren hinh vuong ngoai cung =',s); readln; end. Câu 14: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có N (N>10) phần tử là số tự nhiên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phí. b, Tìm và đưa ra phần tử chẵn lớn nhất của mảng, vị trí của chúng. c, So số phần tử chắn với số phần tử lẻ. TL: uses crt; var maxc,n,chan,le,i:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap cac kich thuoc mang:'); write('n='); readln(n); if n<10 then begin writeln('Yeu cau nhaplai'); readln; exit; end; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:= 1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]<5 ) or ( A[i]>100 ) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; {Tim phan tu chan lon nhat} writeln; maxc:= A[1]; for i:= 1 to n do if A[i]> maxc then writeln('Phan tu chan lon nhat la ',maxc,' va o vi tri',i); { So sanh chan -le} writeln; chan := 0 ; for i:=1 to n do if A[ i] mod 2 = 0 then chan:=chan+1; le:= n- chan; if le< chan then writeln('So chan nhieu hon so le'); if le> chan then writeln('So le nhieu hon so chan'); if le = chan then writeln('So chan bang so le'); readln; end. Câu 15: Viết chương trình cho máy tính làm những công việc sau: a, Nhập vào mảng A có n phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 (n>12). b, Có bao nhiêu phần tử của mảng A là số nguyên tố ? TL: uses crt; var i,j,n,dem,d:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap kich thuoc mang'); writeln('n='); readln(n); if n<12 then begin writeln('Yeu cau nhap lai'); readln; exit; end; writeln; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:=1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]< 5)or (A[i]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; { Dem so nguyen } dem := 0; for i:= 1 to n do begin d:=0 ; for j:= 2 to A[i]-1 do if A[i] mod j=0 then d:=d+1; if d=0 then dem:=dem+1; end; if dem=0 then writeln('Khong co so nguyen to') else writeln('Tong so cac so nguyen to=',dem); readln; end. Câu 16: Viết chương trình cho máy làm những công việc sau: a, Nhận vào mảng A có M dòng, N cột (M>3, N>4) các phần tử là những số thực lớn hơn 1 và nhỏ hơn 100 được nhập từ bàn phím. b, Tìm và đưa ra phần tử nhỏ nhất của mảng, chúng ở dòng nào, cột nào ? TL: uses crt; var i,j,m,n,min:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap cac gia tri cho mang} writeln; writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if(m<3) or (n<4) then begin writeln('Yeu cap nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:=1to m do for j:= 1to n do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j] <1 ) or (A[i,j]>100)then begin writeln('Yeu cau nhaplai'); readln; exit; end; end; writeln; {Inra man hinh} clrscr; writeln('Mang vua nhap:'); writeln; for i:= 1to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; { TIm phan tu nho nhat cua mang} min:=A[1,1]; for i:= 1 to m do for j:= 1 to n do if A[i,j]<=min then min:=A[i,j]; writeln('So nho nhat cua mang la:',min); writeln; for i:= 1 to m do for j:= 1 to n do if A[i,j]= min then writeln('O dong ', i, ' cot ', j); writeln; readln; end. Câu 17: Viết chương nhận vào cho mảng A có m dòng, n cột (m>3, n>4) các phần tử là những số nguyên lớn hơn 3 và nhỏ hơn 150. TÌm tất cả các phần tử là số nguyên tố của mảng A và đưa chúng vào mảng 1 chiều B, in ra các phần tử của mảng B. TL: program tinh; uses crt; type mang=array[1..50]of integer; var a,b:mang; var n,m:byte; function kt(x:integer;n:byte;a:mang):boolean; var i:byte; t:boolean; begin t:=false; i:=1; while (i<=n)and (not t) do if x=a[i] then t:=true else i:=i+1; kt:=t; end; procedure nm(var n:byte;var a:mang); var ch:char; x:integer; begin n:=0; repeat write('x=');readln(x); if not kt(x,n,a) then begin n:=n+1; a[n]:=x; end; writeln('an esc de ket thuc'); ch:=readkey; until ch=#27; end; procedure giaoab(n:byte;a:mang;m:byte;b:mang); var i:byte; begin for i:=1 to n do if kt(a[i],m,b)then write(a[i]:4); end; begin clrscr; writeln('nhap mang a'); nm(n,a); writeln('nhap mang b'); nm(m,b); writeln('giao cua 2 mang A vaf b la'); giaoab(n,a,m,b); readln; end. Câu 18: Nhập vào một số n (5<=n<=10) và n phần tử của dãy A là các số tự nhiên lớn hơn 5 và nhỏ hơn 100. - In ra các phần tử là số chính phương. - Tính ước chung lớn nhất của tất cả các phần tử của dãy. TL: uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; function chinhphuong(n : integer): boolean; {hàm ki?m tra nguyên t?, xem gi?i thích ? ph?n trên} var i : integer; begin i:=1; while (i<>i) do i:=i+1; if i=n then writeln(n,'khong la so chinh phuong') else writeln(n,'la so chinh phuog') end; writeln; end; procedure inchinhphuong; var i :integer; begin writeln('CAC PHAN TU CHINH PHUONG TRONG DAY:'); for i := 1 to n do {duy?t qua m?i ph?n t? t? 1 d?n n} if chinhphuong(a[i]) then writeln(a[i]); {n?u ai là nguyên t? thì in ra} end; function UCLN(a,b: integer): integer; var r : integer; begin while b<>0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure TinhUC; var i,u : integer begin u := a[1]; {u là UCLN c?a các ph?n t? t? 1 d?n i} for i := 2 to n do u := UCLN(u,a[i]); writeln('UCLN cua ca day la:',u); end; function hammu(a : real; n : integer): real; {hàm mu tính an} var s : real; i : integer; begin s := 1; for i := 1 to n do s := s * a; hammu := s; end; BEGIN nhap; inngto; tinhuc; END. Câu 19: Nhập vào một số n (5<=n<=10) và n phần tử của dãy a là các số tự nhiên lớn hơn 1 và nhỏ hơn 100. - Tính biểu thức sau: S = a2¬¬¬1+a22+...+a2n - Sắp xếp dãy tăng dần và in ra dãy sau sắp xếp. TL: {//Khai báo d? li?u:} uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} {//Th? t?c nh?p d? li?u, có ki?m tra khi nh?p.} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; {//Th? t?c tính t?ng các ph?n t? có l?y mu:} procedure tong; var s : real; i : integer; {s ph?i khai báo là s? th?c d? tránh tràn s?} begin s := 0; for i := 1 to n do s := s + hammu(a[i],i); {s := s + (ai)i} writeln('Tong can tinh:',s:10:0); end; {//Th? t?c s?p x?p tang d?n các ph?n t? c?a m?t m?ng:} procedure sxep; var i,j,tg : integer; begin for i := 1 to n-1 do for j := i + 1 to n do if a[i] > a[j] then begin tg := a[i]; a[i] := a[j]; a[j] := tg; end; writeln('DAY SAU KHI SAP XEP TANG DAN:'); for i := 1 to n do writeln(a[i]); end; {//Chuong trình chính: l?n lu?t g?i t?ng th? t?c} BEGIN nhap; tong; sxep; END. Câu 20: Viết chương trình nhập một sau kí tự, sau đó chỉ ra xem xâu đó có những loại kí tự nào, xâu đó có phải là xâu đối xứng không (xâu đối xứng có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu, ví dụ: ‘ABBA’ hoặc ‘ABCBA’) TL: Uses Crt; Var St : string; dx : Boolean; i, len: byte; BEGIN Clrscr; Write(' Nhap xau St = '); Readln(St); dx:= True; i:=1; len:= Length(St); While dx and (i<=(len div 2)) do Begin dx:=(St[i] = St[len - i+1]); inc(i); End; If dx then Write(' St la xau doi xung ') Else Write(' St khong phai la xau doi xung ') ; Readln; END . Câu 21: Nhập vào một xâu s khác rỗng và thực hiện chuẩn hóa xâu, tức là: a, Xóa các dấu cách thừa. b, Chuyển những kí tự đầu từ thành chữ hoa, những kí tự khác thành chữ thường. (ví dụ nhập: “ nguyen van hanh” kết quả: “Nguyen Van Hanh”) TL: Uses Crt; Var St:String; Procedure XoaTrangThua(Var St:String); Begin {Xóa các ký t? tr?ng ? d?u xâu} While St[1]=#32 Do Delete(St,1,1); {Xóa các ký t? tr?ng ? cu?i xâu} While St[Length(St)]=#32 Do Delete(St,Length(St),1); {Xóa các ký t? tr?ng ? gi?a xâu} While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1); End; Begin Write(‘Nhap xau St: ‘); Readln(St); XoaTrangThua(St); Write(‘Xau sau khi xoa cac ky tu trang thua: ‘, St); Readln; procedure ChuyenKiTu(Var St:String); Begin i:=1->length(s) If s[i-1]=' ' then s[i]=UpCase(s[i]) Else s[i]=LowCase(s[i]). For i:=2 to length(S) do If (S[i-1]=" ") and (S[i]<>" ") then If (S[i-1]<>" ") and (S[i]<>" ") then End; End. Câu 22: Viết chương trình tạo một danh sách gồm 10 người với tên người được nhập vào từ bàn phím. Sau đó nhập một tên người tùy ý, tìm xem người đó có trong danh sách không và in ra thông báo cần thiết. TL: program tinh; uses crt; type ng=record ten:string; end; var a:array [1..10] of ng; i:integer; tenn:string; begin clrscr; for i:=1 to 10 do begin write('a[',i,']=');readln(a[i].ten); end; write('nhap mot ten nguoi bat ki:'); readln(tenn); for i:=1 to 10 do if tenn=a[i].ten then begin write('da tim thay:'); write('ten:',a[i].ten); break; end else if (i=10) then write('khong tim thay'); readln; end. Câu 23: Sử dụng dữ liệu kiểu mảng của các bản ghi. Viết chương trình cho phep nhập vào các thẻ theo dõi sách trong thư viện quản lý các mục: mã số, tên sách, tên tác giả. In ra nội dung một thẻ nếu mã số được nhập từ bàn phím. TL: program tinh; uses crt; type the=record ms:integer; ts:string; ttg:string; end; var a:array[1..100] of the; i,n,m:integer; begin clrscr; write('nhap n=');readln(n); for i:=1 to n do begin write('ma so:');readln(a[i].ms); write('ten sach:');readln(a[i].ts); write('ten tac gia:');readln(a[i].ttg); end; write('nhap vao ma so the'); readln(m); for i:=1 to n do if m=a[i].ms then begin writeln('ma so la:',a[i].ms); writeln('ten sach la:',a[i].ts); writeln('ten tac gia la :',a[i].ttg); break; end else if i=n then write('khong co'); readln; end. Câu 24: Viết chương trình quản lý học sinh chuyên tin. Mỗi học sinh được đặc trưng bởi: số báo danh, họ tên, ngày sinh, điểm toán, điểm văn, điểm tin, điểm trung bình các môn (điểm tin có hệ số 2). In ra những học sinh có điểm trung bình lớn hơn bằng 7. TL: program danhsach; uses crt; type nhansu=record; sbd: integer; ht:string; ns:string; dt,dv,dti:real; dtb:real; end; var a:array [1..100]of nhansu; i,n:integer; begin clrscr; write('nhap so hoc sinh can quan ly n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('ngay sinh:');readln(a[i].ns); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem tin:');readln(a[i].dti); a[i].dtb:=(a[i].dt+a[i].dv+a[i].dti*2)/4; writeln('diem trung binh la',a[i].dtb:10:2); end; writeln('danh sach sinh vien co diem trung binh >=7'); for i:=1 to n do if a[i].dtb>=7 then begin writeln('ho ten sinh vien:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('ngay sinh:',a[i].ns); writeln('diem toan:',a[i].dt:10:2); writeln('diem van:',a[i].dv:10:2); writeln('diem tin:',a[i].dti:10:2); writeln('diem trung binh:',a[i].dtb:10:2); break; end else if (i=n) then write('khong co'); readln; end. Câu 25: Nhập một danh sách gồm n thí sinh được quản lý bới số báo danh, họ và tên, điểm toán, điểm văn, điểm ngoại ngữ, điểm tổng cộng. In ra màn hình những thí sinh trúng tuyển (những thí sinh có tổng điểm 3 môn lớn hơn hoặc bằng n là số dương nhập từ bàn phím) TL: program danhsach; uses crt; type nhansu=record ht:string[30]; sbd:integer; dt:integer; dv:integer; dnn:integer; td:real; end; var a:array [1..100] of nhansu; i,n,m:integer; begin clrscr; write('nhap danh sach cac thi sinh n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem ngoai ngu:');readln(a[i].dnn); a[i].td:=(a[i].dt+a[i].dv+a[i].dnn); writeln('tong diem la :',a[i].td:10:2); end; write('nhap m=');readln(m); for i:=1 to n do if (a[i].td>=m) then begin writeln('danh sach thi sinh trung tuyen la: '); writeln('ho ten:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('diem toan:',a[i].dt); writeln('diem van:',a[i].dv); writeln('diem ngoai ngu:',a[i].dnn); end; readln; end.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.

markdown:
**ĐỀ CƯƠNG MÔN PASCAL**
Câu 1: Viết chương trình nhập vào một số nguyên dương từ bàn phím (khi nhập có kiểm tra tính hợp lệ, nếu chưa thỏa mãn yêu cầu nhập lại) a, Hãy cho biết số đó có là số nguyên tố không. b, Lập chương trình tính tổng: S=1/1!+1/2!+....+1/n! TL: uses crt; var i,n :integer; s,p:real; begin { Nhap du lieu } clrscr; { lenh xoa man hinh } write('Nhap so n = '); readln(n); if n<=0 then writeln('Yeu cau nhap lai') else { Kiem tra so nguyen to} If (n=1)or(n=2)then writeln(' So vua nhap la so nguyen to ') else begin i:=2; while (i<=n) and (n mod i<> 0 )do i:=i+1; if i=n then writeln('So vua nhap la so nguyen to') else writeln('So vua nhap khong la so nguyen to'); end; { Tinh tong day } s:=0; p:=1; for i:=1 to n do begin p:=p*(1/i); s:=s+p; end; writeln('Tong s=',s:5:2); readln; end. Câu 2: Bạn có 100000đ đem gửi ngân hàng với lãi xuất 11%/tháng. Sau mỗi tháng tiền lại được nhập vào để tính lãi xuất tháng sau. Bạn muốn số tiền tăng lên thành x (x nhập từ bàn phím). Vậy phải gửi trong bao lâu. Hãy đưa kết quả lên màn hình theo số năm, số tháng cần gửi (Ví dụ: Bạn phải gửi 5 năm 7 tháng, nếu chưa đủ năm chỉ in đưa lên số tháng đã gửi). TL: uses crt ; varthang : Byte ; tien , lai , x : Real ; BEGIN clrscr ; writeln (' Chuong trinh tinh thoi gian rut tien lai ') ; write (' So tien lai muon rut ra : ') ; readln(x) ; tien := 1000 ; thang :=1 ; repeat lai := tien * 11 / 100 ; tien := tien + lai ; thang := thang + 1 ; until tien >= x ; writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ',thang mod 12,'thang .') ; writeln (' Khi do so tien ban rut ra duoc la ', tien:12:2 ,' dong .') ; readln ; END . Câu 3: Viết chương trình bằng ngôn ngữ pascal để: - Nhập từ bàn phím 3 số thực dương tùy ý. - Kiểm tra xem chúng có là số đo 3 cạnh tam giác không, nếu không đúng yêu cầu nhập lại. - Tính diện tích, đường cao ứng với cạnh a của tam giác đó. - In kết quả ra màn hình. TL: program_tamgiac; var a,b,c:integer; s,p,h:real; BEGIN write(' nhap canh a='); readln(a); write(' nhap canh b='); readln(b); write(' nhap canh c='); readln(c); writeln; { Kiem tra lap thanh ba canh cua tam giac} if(a<=0) or(b<=0)or(c<0) then writeln('yeu cau nhap lai') else Begin if(a+b>c)and(b+c>a)and(c+a>b) then begin writeln('Ban da nhap vao la mot tam giac'); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); h:=(2*s)/a; writeln; writeln('dien tich tam giac s=',s:5:2); writeln; writeln('duong cao tinh theo canh a la h=',h:5:2); end else writeln(' Ban da nhap vao khong la mot tam giac'); end; Readln; END. Câu 4: Viết chương trình nhập vào một số nguyên dương >=10 a, Hãy cho biết số đó có là số chính phương không. b, Thông báo lên màn hình số đó có bao nhiêu chữ số, tổng của các chữ số đó. TL: uses crt; var n,s,i,dem:integer; begin {Nhap du lieu} write('Nhap gia tri n='); readln(n); writeln; if n<=10 then writeln('Yeu cau nhap lai') else {Kiem tra so chinh phuong } begin i:=1; while(i<=n) and (sqrt(n) <> i) do i:= i+1; if i=n then writeln(n,'Khong la so chinh phuong ') else writeln(n,'laso chinh phuong'); end; writeln; {Dem tong so cac chu so co trong so nhap va dem so co trong so vua nhap} begin s:=0; dem:=0; while(n<>0 )do begin s:=s +n mod 10; n:=n div 10; dem:=dem+1; end; writeln('Tong cac so=',s); writeln; writeln('Tong cac chu so co trong so=', dem); end; readln; end. Câu 5: Nhập một mảng A các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau: a, Sắp xếp mảng đó theo thứ tự giảm dần. b, Chèn số nguyên x vào mảng sao cho mảng đó không mất đi tính sắp thứ tự. TL: uses crt; var n,x,i,j,tg,k:integer; A:array[1..5]of integer; begin {Nhap gia tri cho mang} clrscr; writeln(' Nhap gia tri cac phan tu mang'); Begin for i:=1 to 5 do begin write('A[',i,']='); readln(A[i]); end; writeln; {In mang vua nhap } writeln('Mang vua nhap'); for i:=1 to 5 do writeln(A[i]); writeln; end; {Sap xep mang giam dan} writeln('Mang sap xep giam dan'); begin for i:=1 to 4 do for j:=i+1 to 5 do if A[i]<=A[i,j] then max:= A[i,j]; s:=s+max; writeln('Max tren dong',i,'la',max); end; writeln; writeln('Tong phan tu lon nhat cua moi dong:',s); readln; end. Câu 7: Viết chương trình nhập vào mảng số nguyên A (không thể có 2 phần tử trùng nhau trong mảng). Trong quả trình nhập phải kiểm tra: Nếu phần tử vừa nhập vào đã có trong mảng thi không bổ sung vào mảng. In ra màn hình các phần tử của A đã được sắp xếp tăng dần. TL: Uses Crt; Type Mang=ARRAY[1..50] Of Integer; Var A,B:Mang; n,m:Byte; Function KiemTra(x:Integer; n:Byte; A:Mang):Boolean; Var i:Byte; Found: Boolean; Begin Found:=False; i:=1; While (i<=n) AND (not Found) Do If x=A[i] Then Found:=True Else i:=i+1; KiemTra:=Found; End; Procedure NhapMang(Var n:Byte; Var A:Mang); Var ch:Char; x:Integer; Begin n:=0; Repeat Write('x='); Readln(x); If not KiemTra(x,n,A) Then Begin n:=n+1; A[n]:=x; End; Writeln('An ESC de ket thuc nhap!'); ch:=Readkey; Until ch=#27; End; Procedure GiaoAB(n:Byte; A:Mang;m:Byte; B:Mang); Var i:Byte; Begin For i:=1 To n Do If KiemTra(A[i],m,B) Then Write(A[i]:4) End; Begin Clrscr; Writeln('Nhap mang A: '); NhapMang(n,A); Writeln('Nhap mang B: '); NhapMang(m,B); Writeln('Giao cua 2 mang A&B la: '); GiaoAB(n,A,m,B); Readln; End. Câu 8: Số Hoàn Hảo: là số có tổng các ước của nó (trừ nó) bằng chính nó, ví dụ: 6=1+2+3. Viết chương trình kiểm tra xem 1 số nguyên dương nhập từ bàn phím có là số hoàn hảo không. Có bao nhiêu số hoàn hảo từ 1 đến 2000, in ra các số đó. TL: uses crt; var n,i,j,s,k,dem:integer; Begin { Nhap dulieu} clrscr; write('Nhap so n='); readln(n); writeln; if n<1 then writeln('Yeu cau nhap lai') else begin {Kiem tra so hoan hao} s:=0; for i:=1 to n-1 do begin if n mod i=0 then s:=s+1; end; if s=n then writeln('n,La so hoan hao ') else writeln(n,'Khong la so hoan hao '); end; { Dem so hoan hao va in ra man hinh nhung so do} writeln; writeln('Cac so hoan hao tu 1 den 2000 la:'); begin dem:=0; for i:= 1 to 2000 do begin s:=0; for j:= 1 to i-1 do if ( i mod j = 0) then s:= s+ j; if(s=i) then begin writeln(i); end; end; writeln('Tong so hoan hao la :', dem); end; readln; end. Câu 9: Cho một mảng số nguyên gồm n phần tử, tìm dãy con có m phần tử (ma[i,j] then min:=a[i,j]; end; write('la so nho nha:',min); readln; end. Câu 12: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có M dòng, N cột (M>5, N>6) các phần tử là các số nguyên lớn hơn 2 và nhỏ hơn 100 được nhập từ bàn phím. b, Đếm số các phần tử chẵn của mảng. c, In ra màn hình giá trị dương lớn nhất của mảng. TL: uses crt; var i,j,s,max,dem,m,n:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap gia tri cua mang} writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if (m<5) or (n<6) then begin writeln('yeu cau nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:= 1 to m do for j:= 1 to n do begin write('A[',i,',',j,']='); readln( A[i,j]); if( A[i,j] <2 ) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh} clrscr; writeln('Mang vua nhap:'); for i:= 1 to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; {Dem cac so chan } writeln; dem:=0; for i:= 1 to m do for j:= 1 to n do if A[i,j]mod 2= 0 then dem:= dem +1; writeln('Tong cac so chia het cho 2 =',dem); writeln; {Hien thi cac phan tu lon nhat cua mang} max:=A[i,j]; for i:= 1 to m do for j:= 1 to n do if (A[i,j]>0) and (max<=A[i,j]) then max:=A[i,j]; writeln('So nguyen duong lon nhat cua mang la:', max); readln; end. Câu 13: Viết chương trình tạo mảng 5 dòng, 5 cột với các phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phím: a, Cho biết mảng có bao nhiêu số lẻ không chia hết cho 5 b, Tính tổng các phần tử nằm hình vuông ngoài cùng của mảng. TL: uses crt; var i,j,s,s1,s2,s3,s4,max,dem:integer; A:array[1..5,1..5] of integer; begin clrscr; {Nhap gia tri cho mang} writeln('Nhap cac phantu mang:'); for i:=1 to 5 do for j:=1 to 5 do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j]<5) or (A[i,j]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; writeln; {In ra man hinh } clrscr; writeln('Mang vua nhap:'); for i:= 1 to 5 do begin for j:= 1 to 5 do write(A[i,j],','); writeln; end; {Dem cac so le khong chia het cho 5} writeln; dem:=0; for i:= 1 to 5 do for j := 1 to 5 do if (A[i,j] mod 2 <> 0 ) and (A[i,j] mod 5 <> 0) then dem := dem+1; writeln('Tong cac so le khong chia het cho 5 = ',dem); writeln; {Tinh tong cac so tren hinh vuong ngoai cung cua mang} s1:=0; for i:= 1 to 1 do for j := 1 to 5 do s1:= s1+A[i,j]; s2:=0 ; for i := 5 to 5 do for j:=1 to 5do s1 :=s1+ A[i,j]; s3:=0 ; for i := 1 to 5 do for j:=1 to 1 do s1 :=s1+ A[i,j]; s4:=0 ; for i := 1 to 5 do for j:=5 to 5 do s1 :=s1+ A[i,j]; s:=s1+s2+s3+s4; writeln('Tong cac so tren hinh vuong ngoai cung =',s); readln; end. Câu 14: Viết chương trình cho máy làm những công việc sau: a, Nhập vào mảng A có N (N>10) phần tử là số tự nhiên lớn hơn 5 và nhỏ hơn 100 được nhập từ bàn phí. b, Tìm và đưa ra phần tử chẵn lớn nhất của mảng, vị trí của chúng. c, So số phần tử chắn với số phần tử lẻ. TL: uses crt; var maxc,n,chan,le,i:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap cac kich thuoc mang:'); write('n='); readln(n); if n<10 then begin writeln('Yeu cau nhaplai'); readln; exit; end; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:= 1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]<5 ) or ( A[i]>100 ) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; {Tim phan tu chan lon nhat} writeln; maxc:= A[1]; for i:= 1 to n do if A[i]> maxc then writeln('Phan tu chan lon nhat la ',maxc,' va o vi tri',i); { So sanh chan -le} writeln; chan := 0 ; for i:=1 to n do if A[ i] mod 2 = 0 then chan:=chan+1; le:= n- chan; if le< chan then writeln('So chan nhieu hon so le'); if le> chan then writeln('So le nhieu hon so chan'); if le = chan then writeln('So chan bang so le'); readln; end. Câu 15: Viết chương trình cho máy tính làm những công việc sau: a, Nhập vào mảng A có n phần tử là những số nguyên lớn hơn 5 và nhỏ hơn 100 (n>12). b, Có bao nhiêu phần tử của mảng A là số nguyên tố ? TL: uses crt; var i,j,n,dem,d:integer; A:array[1..1000] of integer; begin { Nhap ma tran } clrscr; writeln('Nhap kich thuoc mang'); writeln('n='); readln(n); if n<12 then begin writeln('Yeu cau nhap lai'); readln; exit; end; writeln; writeln('Ma tran cua ban co kich thuoc',n); writeln; writeln('Nhap gia tri cac phan tu mang'); writeln; for i:=1 to n do begin write('A[',i,']='); readln(A[i]); if (A[i]< 5)or (A[i]>100) then begin writeln('Yeu cau nhap lai'); readln; exit; end; end; { In ma tran } clrscr; writeln('Ma tran vua nhap vao:'); for i:= 1 to n do write(A[i],' '); writeln; { Dem so nguyen } dem := 0; for i:= 1 to n do begin d:=0 ; for j:= 2 to A[i]-1 do if A[i] mod j=0 then d:=d+1; if d=0 then dem:=dem+1; end; if dem=0 then writeln('Khong co so nguyen to') else writeln('Tong so cac so nguyen to=',dem); readln; end. Câu 16: Viết chương trình cho máy làm những công việc sau: a, Nhận vào mảng A có M dòng, N cột (M>3, N>4) các phần tử là những số thực lớn hơn 1 và nhỏ hơn 100 được nhập từ bàn phím. b, Tìm và đưa ra phần tử nhỏ nhất của mảng, chúng ở dòng nào, cột nào ? TL: uses crt; var i,j,m,n,min:integer; A:array[1..100,1..100] of integer; begin clrscr; {Nhap cac gia tri cho mang} writeln; writeln('Nhap kich thuoc mang:'); write('m='); readln(m); write('n='); readln(n); writeln; if(m<3) or (n<4) then begin writeln('Yeu cap nhap lai'); readln; exit; end; writeln; writeln('Nhap cac phan tu mang:'); for i:=1to m do for j:= 1to n do begin write('A[',i,',',j,']='); readln(A[i,j]); if (A[i,j] <1 ) or (A[i,j]>100)then begin writeln('Yeu cau nhaplai'); readln; exit; end; end; writeln; {Inra man hinh} clrscr; writeln('Mang vua nhap:'); writeln; for i:= 1to m do begin for j:= 1 to n do write(A[i,j],' '); writeln; end; { TIm phan tu nho nhat cua mang} min:=A[1,1]; for i:= 1 to m do for j:= 1 to n do if A[i,j]<=min then min:=A[i,j]; writeln('So nho nhat cua mang la:',min); writeln; for i:= 1 to m do for j:= 1 to n do if A[i,j]= min then writeln('O dong ', i, ' cot ', j); writeln; readln; end. Câu 17: Viết chương nhận vào cho mảng A có m dòng, n cột (m>3, n>4) các phần tử là những số nguyên lớn hơn 3 và nhỏ hơn 150. TÌm tất cả các phần tử là số nguyên tố của mảng A và đưa chúng vào mảng 1 chiều B, in ra các phần tử của mảng B. TL: program tinh; uses crt; type mang=array[1..50]of integer; var a,b:mang; var n,m:byte; function kt(x:integer;n:byte;a:mang):boolean; var i:byte; t:boolean; begin t:=false; i:=1; while (i<=n)and (not t) do if x=a[i] then t:=true else i:=i+1; kt:=t; end; procedure nm(var n:byte;var a:mang); var ch:char; x:integer; begin n:=0; repeat write('x=');readln(x); if not kt(x,n,a) then begin n:=n+1; a[n]:=x; end; writeln('an esc de ket thuc'); ch:=readkey; until ch=#27; end; procedure giaoab(n:byte;a:mang;m:byte;b:mang); var i:byte; begin for i:=1 to n do if kt(a[i],m,b)then write(a[i]:4); end; begin clrscr; writeln('nhap mang a'); nm(n,a); writeln('nhap mang b'); nm(m,b); writeln('giao cua 2 mang A vaf b la'); giaoab(n,a,m,b); readln; end. Câu 18: Nhập vào một số n (5<=n<=10) và n phần tử của dãy A là các số tự nhiên lớn hơn 5 và nhỏ hơn 100. - In ra các phần tử là số chính phương. - Tính ước chung lớn nhất của tất cả các phần tử của dãy. TL: uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; function chinhphuong(n : integer): boolean; {hàm ki?m tra nguyên t?, xem gi?i thích ? ph?n trên} var i : integer; begin i:=1; while (i<>i) do i:=i+1; if i=n then writeln(n,'khong la so chinh phuong') else writeln(n,'la so chinh phuog') end; writeln; end; procedure inchinhphuong; var i :integer; begin writeln('CAC PHAN TU CHINH PHUONG TRONG DAY:'); for i := 1 to n do {duy?t qua m?i ph?n t? t? 1 d?n n} if chinhphuong(a[i]) then writeln(a[i]); {n?u ai là nguyên t? thì in ra} end; function UCLN(a,b: integer): integer; var r : integer; begin while b<>0 do begin r := a mod b; a := b; b := r; end; UCLN := a; end; procedure TinhUC; var i,u : integer begin u := a[1]; {u là UCLN c?a các ph?n t? t? 1 d?n i} for i := 2 to n do u := UCLN(u,a[i]); writeln('UCLN cua ca day la:',u); end; function hammu(a : real; n : integer): real; {hàm mu tính an} var s : real; i : integer; begin s := 1; for i := 1 to n do s := s * a; hammu := s; end; BEGIN nhap; inngto; tinhuc; END. Câu 19: Nhập vào một số n (5<=n<=10) và n phần tử của dãy a là các số tự nhiên lớn hơn 1 và nhỏ hơn 100. - Tính biểu thức sau: S = a2¬¬¬1+a22+...+a2n - Sắp xếp dãy tăng dần và in ra dãy sau sắp xếp. TL: {//Khai báo d? li?u:} uses crt; var n : integer; a : array[1..10] of integer; {n<=10 nên m?ng có t?i da 10 ph?n t?} {//Th? t?c nh?p d? li?u, có ki?m tra khi nh?p.} procedure nhap; var i : integer; begin clrscr; write('NHAP VAO SO PHAN TU N = '); repeat readln(n); if (5<=n) and (n<=10) then break; {n?u thoã mãn thì d?ng vòng l?p} writeln('Khong hop le (5<=n<=10). Nhap lai!!!'); {ngu?c l?i thì báo l?i} until false; writeln('NHAP VAO N PHAN TU (1<100)'); for i := 1 to n do begin write('a',i,'='); repeat readln(a[i]); if (1<100) then break; writeln('Khong hop le. Nhap lai!!!'); until false; end; end; {//Th? t?c tính t?ng các ph?n t? có l?y mu:} procedure tong; var s : real; i : integer; {s ph?i khai báo là s? th?c d? tránh tràn s?} begin s := 0; for i := 1 to n do s := s + hammu(a[i],i); {s := s + (ai)i} writeln('Tong can tinh:',s:10:0); end; {//Th? t?c s?p x?p tang d?n các ph?n t? c?a m?t m?ng:} procedure sxep; var i,j,tg : integer; begin for i := 1 to n-1 do for j := i + 1 to n do if a[i] > a[j] then begin tg := a[i]; a[i] := a[j]; a[j] := tg; end; writeln('DAY SAU KHI SAP XEP TANG DAN:'); for i := 1 to n do writeln(a[i]); end; {//Chuong trình chính: l?n lu?t g?i t?ng th? t?c} BEGIN nhap; tong; sxep; END. Câu 20: Viết chương trình nhập một sau kí tự, sau đó chỉ ra xem xâu đó có những loại kí tự nào, xâu đó có phải là xâu đối xứng không (xâu đối xứng có các kí tự giống nhau và đối xứng nhau qua điểm giữa xâu, ví dụ: ‘ABBA’ hoặc ‘ABCBA’) TL: Uses Crt; Var St : string; dx : Boolean; i, len: byte; BEGIN Clrscr; Write(' Nhap xau St = '); Readln(St); dx:= True; i:=1; len:= Length(St); While dx and (i<=(len div 2)) do Begin dx:=(St[i] = St[len - i+1]); inc(i); End; If dx then Write(' St la xau doi xung ') Else Write(' St khong phai la xau doi xung ') ; Readln; END . Câu 21: Nhập vào một xâu s khác rỗng và thực hiện chuẩn hóa xâu, tức là: a, Xóa các dấu cách thừa. b, Chuyển những kí tự đầu từ thành chữ hoa, những kí tự khác thành chữ thường. (ví dụ nhập: “ nguyen van hanh” kết quả: “Nguyen Van Hanh”) TL: Uses Crt; Var St:String; Procedure XoaTrangThua(Var St:String); Begin {Xóa các ký t? tr?ng ? d?u xâu} While St[1]=#32 Do Delete(St,1,1); {Xóa các ký t? tr?ng ? cu?i xâu} While St[Length(St)]=#32 Do Delete(St,Length(St),1); {Xóa các ký t? tr?ng ? gi?a xâu} While POS(#32#32,St)<>0 Do Delete(St,POS(#32#32,St),1); End; Begin Write(‘Nhap xau St: ‘); Readln(St); XoaTrangThua(St); Write(‘Xau sau khi xoa cac ky tu trang thua: ‘, St); Readln; procedure ChuyenKiTu(Var St:String); Begin i:=1->length(s) If s[i-1]=' ' then s[i]=UpCase(s[i]) Else s[i]=LowCase(s[i]). For i:=2 to length(S) do If (S[i-1]=" ") and (S[i]<>" ") then If (S[i-1]<>" ") and (S[i]<>" ") then End; End. Câu 22: Viết chương trình tạo một danh sách gồm 10 người với tên người được nhập vào từ bàn phím. Sau đó nhập một tên người tùy ý, tìm xem người đó có trong danh sách không và in ra thông báo cần thiết. TL: program tinh; uses crt; type ng=record ten:string; end; var a:array [1..10] of ng; i:integer; tenn:string; begin clrscr; for i:=1 to 10 do begin write('a[',i,']=');readln(a[i].ten); end; write('nhap mot ten nguoi bat ki:'); readln(tenn); for i:=1 to 10 do if tenn=a[i].ten then begin write('da tim thay:'); write('ten:',a[i].ten); break; end else if (i=10) then write('khong tim thay'); readln; end. Câu 23: Sử dụng dữ liệu kiểu mảng của các bản ghi. Viết chương trình cho phep nhập vào các thẻ theo dõi sách trong thư viện quản lý các mục: mã số, tên sách, tên tác giả. In ra nội dung một thẻ nếu mã số được nhập từ bàn phím. TL: program tinh; uses crt; type the=record ms:integer; ts:string; ttg:string; end; var a:array[1..100] of the; i,n,m:integer; begin clrscr; write('nhap n=');readln(n); for i:=1 to n do begin write('ma so:');readln(a[i].ms); write('ten sach:');readln(a[i].ts); write('ten tac gia:');readln(a[i].ttg); end; write('nhap vao ma so the'); readln(m); for i:=1 to n do if m=a[i].ms then begin writeln('ma so la:',a[i].ms); writeln('ten sach la:',a[i].ts); writeln('ten tac gia la :',a[i].ttg); break; end else if i=n then write('khong co'); readln; end. Câu 24: Viết chương trình quản lý học sinh chuyên tin. Mỗi học sinh được đặc trưng bởi: số báo danh, họ tên, ngày sinh, điểm toán, điểm văn, điểm tin, điểm trung bình các môn (điểm tin có hệ số 2). In ra những học sinh có điểm trung bình lớn hơn bằng 7. TL: program danhsach; uses crt; type nhansu=record; sbd: integer; ht:string; ns:string; dt,dv,dti:real; dtb:real; end; var a:array [1..100]of nhansu; i,n:integer; begin clrscr; write('nhap so hoc sinh can quan ly n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('ngay sinh:');readln(a[i].ns); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem tin:');readln(a[i].dti); a[i].dtb:=(a[i].dt+a[i].dv+a[i].dti*2)/4; writeln('diem trung binh la',a[i].dtb:10:2); end; writeln('danh sach sinh vien co diem trung binh >=7'); for i:=1 to n do if a[i].dtb>=7 then begin writeln('ho ten sinh vien:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('ngay sinh:',a[i].ns); writeln('diem toan:',a[i].dt:10:2); writeln('diem van:',a[i].dv:10:2); writeln('diem tin:',a[i].dti:10:2); writeln('diem trung binh:',a[i].dtb:10:2); break; end else if (i=n) then write('khong co'); readln; end. Câu 25: Nhập một danh sách gồm n thí sinh được quản lý bới số báo danh, họ và tên, điểm toán, điểm văn, điểm ngoại ngữ, điểm tổng cộng. In ra màn hình những thí sinh trúng tuyển (những thí sinh có tổng điểm 3 môn lớn hơn hoặc bằng n là số dương nhập từ bàn phím) TL: program danhsach; uses crt; type nhansu=record ht:string[30]; sbd:integer; dt:integer; dv:integer; dnn:integer; td:real; end; var a:array [1..100] of nhansu; i,n,m:integer; begin clrscr; write('nhap danh sach cac thi sinh n='); readln(n); for i:=1 to n do begin write('ho ten:'); readln(a[i].ht); write('so bao danh:');readln(a[i].sbd); write('diem toan:');readln(a[i].dt); write('diem van:');readln(a[i].dv); write('diem ngoai ngu:');readln(a[i].dnn); a[i].td:=(a[i].dt+a[i].dv+a[i].dnn); writeln('tong diem la :',a[i].td:10:2); end; write('nhap m=');readln(m); for i:=1 to n do if (a[i].td>=m) then begin writeln('danh sach thi sinh trung tuyen la: '); writeln('ho ten:',a[i].ht); writeln('so bao danh:',a[i].sbd); writeln('diem toan:',a[i].dt); writeln('diem van:',a[i].dv); writeln('diem ngoai ngu:',a[i].dnn); end; readln; end.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được.
Có những yêu thương, những nồng nàn chỉ riêng mình em cảm nhận được. Đừng hỏi tại sao. Khi người ta đã thương yêu thì làm gì có lý do? Dù yêu thương ấy sâu đậm hay hững hờ thì bản thân yêu thương ấy đã tồn tại trong em như hạt mầm đã bén rễ, ăn sâu vào tâm hồn.