Dãy Hạnh Phúc - Hate Pascal If You Can

Hướng Dẫn Download & Cài Đặt Hate Pascal If You Can

Link download :   https://goo.gl/U2Wxnu Home:  http://hatepascalifucan.byethost3.com/

Thứ Năm, 6 tháng 4, 2017

Dãy hạnh phúc

Dãy số tự nhiên a1 , a2 ,a3... ak được gọi là hạnh phúc nếu nó thoả mãn các điều kiện sau : - Dãy trên là một dãy giảm dần . - Với mọi i ( 1<=i <= k ) ai hoặc là số nguyên tố , hoặc phải là ước của một trong các số a1 , a2 , ... , ai VD : 18 17 13 11 9 7 6 5 3 2 là dãy hạnh phúc Viết chương trình nhập 1 số tự nhiên N từ bàn phím và in ra màn hình một dãy số hạnh phúc càng dài càng tốt với số hạng đầu tiên là N. Uses crt; Const max=37; Var a:array[1..max] of longint; n,i:longint; BEGIN Clrscr; a[1]:=1; a[2]:=1; a[3]:=2; For i:=4 to max do a[i]:=a[i-1]+a[i-2]+a[i-3]; Write('Nhap so n:'); readln(n); i:=max; While a[i]>n do i:=i-1; Write(n,'=',a[i]); n:=n-a[i]; While n>0 do Begin i:=i-1; If n>=a[i] then Begin Write('+',a[i]); n:=n-a[i]; End; End; Readln; END. vào lúc tháng 4 06, 2017 Gửi email bài đăng nàyBlogThis!Chia sẻ lên XChia sẻ lên FacebookChia sẻ lên Pinterest Nhãn: Bai-tap-pascal, giai-bai-tap-pascal

Không có nhận xét nào:

Đăng nhận xét

Bài đăng Mới hơn Bài đăng Cũ hơn Trang chủ Đăng ký: Đăng Nhận xét (Atom)

Tìm kiếm Blog này

Bài đăng phổ biến

• Mã hóa xâu Đề bài:Tập hợp các chữ cái tiếng Anh bao gồm 26 chữ cái được đánh số thứ tự lần lượt từ 0 đến 25. Quy tắc mã hóa một kí tự như sau: 1. Tì...
• Đổi từ hệ 10 sang hệ 2 (hệ thập phân sang nhị phân) Đề :  Đổi từ hệ 10 sang hệ 2 (hệ thập phân sang nhị phân) Nguyên tắc của phương pháp chuyển đổi từ hệ cơ số 10 sang hệ cơ số 2 là lấy số ...
• CÁC KIỂU DỮ LIỆU CƠ SỞ: INTEGER, REAL, BOOLEAN, CHAR              1. Khái niệm Dữ liệu (data) là tất cả những gì mà máy tính phải xử lý. Theo Niklaus Wirth: CHƯƠNG TRÌNH...
• Đề thi tin học trẻ Hưng Yên 2017 Đề thi tin học trẻ Hưng Yên 2017
• Xâu thuần nhất (Giải nén xâu trong pascal) Xâu kí tự thuần nhất được định nghĩa là xâu chỉ bao gồm các chữ cái tiếng anh. Một xâu thuần nhất có thể được viết thu gọn, bao gồm các số ...
• Giáo Trình Bài Tập Pascal GIÁO TRÌNH PASCAL HAY
• Đếm số âm, dương trong tệp Đề bài: Đếm số âm,dương trong tệp N phần tử
• Tìm số nguyên tố trong mảng sử dụng chương trình con Đề bài: Tìm số nguyên tố trong mảng sử dụng chương trình con
• Đề thi Tin Học Trẻ tỉnh Nghệ An 2016 Đề thi Tin Học Trẻ tỉnh Nghệ An năm 2016
• Dãy Tribonacci Dãy Tribonacci là dãy 1 , 1 , 2 , 3 , 7 , 13 , 24... dãy này được sinh ra bới công thức đệ qui sau : Tr(1) = 1 , Tr(2) = 1 , Tr(3) = 2 , ...

Pages

• Trang chủ

Người đóng góp cho blog

• Unknown
• Unknown
• aaaaaaaaaa

• tháng 3 2018 (2)
• tháng 5 2017 (1)
• tháng 4 2017 (46)
• tháng 3 2017 (10)

Tags

• Bai-tap-pascal (20)
• Pascal-co-ban (15)
• pascal-nang-cao (15)
• de-thi (6)
• ebook (4)
• giai-bai-tap-pascal (3)

Visitors

Bình Luận