Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày. var d,m,y,n:integer; Function Songay(thang,nam: Integer):Intege...
Read More
Hiển thị các bài đăng có nhãn Pascal mở rộng. Hiển thị tất cả bài đăng
Hiển thị các bài đăng có nhãn Pascal mở rộng. Hiển thị tất cả bài đăng
In ra tệp các phần tử xuất hiện trong tệp từ k lần trở lên
Nhập một dãy A (mỗi số chỉ xuất 1 lần) có N (< 40) số tự nhiên và 1 số K. Hãy xuất ra các phần tử có số lần xuất hiện trong dãy A từ K...
Read More
Tìm các số tổng các các ước của số này bằng số kia và ngược lại
Hai số m,n gọi là bạn của nhau nếu tổng các ước của m bằng n và ngược lại.Tìm tất cả các số là bạn của nahu và nhỏ hơn 10001. Ý tưởng: Thay ...
Read More
Bài tập dãy Fibonaci và số nguyên tố
Dãy FIBONACI là dãy được xác định như sau: F(0) = 0; F(1) = 1 và F(n) = F(n-1) + F(n-2) với n = 2, 3... Hãy viết chương trình máy tính đ...
Read More
Tổng m số tận cùng của n trong pascal
Nhập vào 1 số tự nhiên n* và nhập vào m, sau đó tính tổng m các số tận cùng của n. vd: n = 365 m =2 tổng = 5+6=11. Cách 1: uses crt; var n:...
Read More
Đăng ký:
Bài đăng (Atom)