Search this site
Embedded Files
Skip to main content
Skip to navigation
BP Computer
Trang chủ
Kinh doanh
Đăng ký mua sắm, sửa chữa
Máy in laser và phụ kiện
Máy tính để bàn, laptop
Camera an ninh và phụ kiện
Webcam họp- dạy học trực tuyến
Thiết bị wifi, internet
Thiết bị nghe nhìn
Thiết bị lưu trữ dữ liệu
Phần mềm diệt virus và ứng dụng...
Thiết bị ngoại vi khác...
Thông báo
Thông báo mới
Tin khuyến mãi
Báo giá sản phẩm
Bảng giá dịch vụ
Học Tập CNTT
Kiểm tra gõ 10 ngón
Giới thiệu phần mềm luyện gõ phím
Thể thức văn bản NĐ-30-2020/NĐ-CP
Tiếng Anh chuyên ngành CNTT
Trí tuệ nhân tạo
Đăng ký học online
Lập trình Python
Kỹ năng số và Internet
Rèn kỹ năng lập trình
Công nghệ thông tin
Trắc nghiệm CNTT CB
Học và ôn thi CNTT cơ bản
Trắc nghiệm CNTT NC
Học và ôn thi CNTT nâng cao
Tài liệu Tin học
Bài giảng KTV máy tính
Các môn học khác
Trung học phổ thông
Trung học cơ sở
Tiểu học
Lập trình Pascal
Thuật toán phổ biến
Xử lí số
Xâu kí tự, chuỗi
Sắp xếp, tìm kiếm
Các số đặc biệt
Thủ thuật hay
Kỹ năng thông tin
Thủ thuật máy in
Thủ thuật máy tính
Thủ thuật camera
Phần mềm hay
Phần mềm chọn lọc
Hệ điều hành Windows
MS Office văn phòng
Xử lí âm thanh, hình ảnh
Share Code HTML
Test Code
Giải trí
Nhạc chọn lọc
Phim hay chọn lọc
Game mini hay
Hỗ trợ
Truy cập
BP Computer
Trang chủ
Kinh doanh
Đăng ký mua sắm, sửa chữa
Máy in laser và phụ kiện
Máy tính để bàn, laptop
Camera an ninh và phụ kiện
Webcam họp- dạy học trực tuyến
Thiết bị wifi, internet
Thiết bị nghe nhìn
Thiết bị lưu trữ dữ liệu
Phần mềm diệt virus và ứng dụng...
Thiết bị ngoại vi khác...
Thông báo
Thông báo mới
Tin khuyến mãi
Báo giá sản phẩm
Bảng giá dịch vụ
Học Tập CNTT
Kiểm tra gõ 10 ngón
Giới thiệu phần mềm luyện gõ phím
Thể thức văn bản NĐ-30-2020/NĐ-CP
Tiếng Anh chuyên ngành CNTT
Trí tuệ nhân tạo
Đăng ký học online
Lập trình Python
Kỹ năng số và Internet
Rèn kỹ năng lập trình
Công nghệ thông tin
Trắc nghiệm CNTT CB
Học và ôn thi CNTT cơ bản
Trắc nghiệm CNTT NC
Học và ôn thi CNTT nâng cao
Tài liệu Tin học
Bài giảng KTV máy tính
Các môn học khác
Trung học phổ thông
Trung học cơ sở
Tiểu học
Lập trình Pascal
Thuật toán phổ biến
Xử lí số
Xâu kí tự, chuỗi
Sắp xếp, tìm kiếm
Các số đặc biệt
Thủ thuật hay
Kỹ năng thông tin
Thủ thuật máy in
Thủ thuật máy tính
Thủ thuật camera
Phần mềm hay
Phần mềm chọn lọc
Hệ điều hành Windows
MS Office văn phòng
Xử lí âm thanh, hình ảnh
Share Code HTML
Test Code
Giải trí
Nhạc chọn lọc
Phim hay chọn lọc
Game mini hay
Hỗ trợ
Truy cập
More
Trang chủ
Kinh doanh
Đăng ký mua sắm, sửa chữa
Máy in laser và phụ kiện
Máy tính để bàn, laptop
Camera an ninh và phụ kiện
Webcam họp- dạy học trực tuyến
Thiết bị wifi, internet
Thiết bị nghe nhìn
Thiết bị lưu trữ dữ liệu
Phần mềm diệt virus và ứng dụng...
Thiết bị ngoại vi khác...
Thông báo
Thông báo mới
Tin khuyến mãi
Báo giá sản phẩm
Bảng giá dịch vụ
Học Tập CNTT
Kiểm tra gõ 10 ngón
Giới thiệu phần mềm luyện gõ phím
Thể thức văn bản NĐ-30-2020/NĐ-CP
Tiếng Anh chuyên ngành CNTT
Trí tuệ nhân tạo
Đăng ký học online
Lập trình Python
Kỹ năng số và Internet
Rèn kỹ năng lập trình
Công nghệ thông tin
Trắc nghiệm CNTT CB
Học và ôn thi CNTT cơ bản
Trắc nghiệm CNTT NC
Học và ôn thi CNTT nâng cao
Tài liệu Tin học
Bài giảng KTV máy tính
Các môn học khác
Trung học phổ thông
Trung học cơ sở
Tiểu học
Lập trình Pascal
Thuật toán phổ biến
Xử lí số
Xâu kí tự, chuỗi
Sắp xếp, tìm kiếm
Các số đặc biệt
Thủ thuật hay
Kỹ năng thông tin
Thủ thuật máy in
Thủ thuật máy tính
Thủ thuật camera
Phần mềm hay
Phần mềm chọn lọc
Hệ điều hành Windows
MS Office văn phòng
Xử lí âm thanh, hình ảnh
Share Code HTML
Test Code
Giải trí
Nhạc chọn lọc
Phim hay chọn lọc
Game mini hay
Hỗ trợ
Truy cập
Lập trình Pascal
Dạng bài toán xử lí chuỗi và dãy số...
2.
Dạng bài toán
sắp xếp, tìm kiếm, mã hoá, giải mã, hoán vị...
3
.
Số nguyên tố, số hoàn hảo, số là bạn, số chính phương, số đối xứng, số thập phân, số nhị phân...
4
.
Tổng các chữ số của 1 số, ước số, giải các bài toán thông minh, toán khó, toán thực tế và các bài toán cấp trung học.
Khai báo chương trình đọc/ghi file như ví dụ dưới:
Var N: Integer, St: String;
Fi, Fo: Text;
BEGIN
Assign (Fi, ’bai1.inp’); Reset(Fi)
Assign (Fo, ’bai1.out’); Rewrite(Fo)
Readln(
Fi
,<biến N, St>);
Write( Fo, <biến N, biến St>);
Close(Fi);
Close(Fo);
END.
Google Sites
Report abuse
Page details
Page updated
Google Sites
Report abuse