Dãy Số Hạnh Phúc - Nguyễn Viết Giáp

Trang chủ » Dãy Số Hạnh Phúc Pascal » Dãy Số Hạnh Phúc - Nguyễn Viết Giáp

Có thể bạn quan tâm

Comments

  • TRANG CHỦ
  • NHÀ TRƯỜNG
  • TỪ ĐIỂN PASCAL
    • Hàm và thủ tục
    • Khắc phục lỗi
  • THƯ VIỆN BÀI TẬP PASCAL
    • Dạng BT số học
    • Dạng BT đại số
    • Dạng BT dãy số
    • Dạng BT hình học
    • Dạng BT thời gian
    • Dạng BT kí tự
    • Dạng BT tổng hợp
  • SÁNG KIẾN KINH NGHIỆM
  • HP
  • Dell
  • Thinkpad
  • Surface

9.29.2017

Dãy số hạnh phúc

Dãy số tự nhiên a1, a2,.., ak được gọi là hạnh phúc nếu nó thỏa mãn các điều kện sau : - Dãy trên là 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-1 . Em hãy viết chương trình để: Nhập vào một số N từ bàn phím và in ra màn hình một dãy số hạnh phúc dài nhất với số hạng đầu tiên là N. Ví dụ: Nhập N Đọc ra màn hình 8 DAY THOA MAN: 8 7 5 4 3 2 1 Lời giải tham khảo uses crt; var a: array[1..1000]of integer; i,j,k,n,d:integer; kt:boolean; function nt(n:longint):boolean; var i:longint; begin if n<2 then nt:=false else begin i:=2; while (i<=sqrt(n)) and (n mod i<>0) do inc(i); nt:=(i>sqrt(n)); end; end; BEGIN clrscr; write('vao n=');readln(n); if n=2 then write(n,' ',1) else begin d:=1; a[1]:=n; for i:= n-1 downto 1 do begin if(nt(i)) then begin inc(d);a[d]:=i;a[d]:=i;end else begin kt:=false; for j:=1 to d-1 do if a[j] mod i=0 then kt:=true; if kt then begin inc(d); a[d]:=i; end; end; end; for i:=1 to d do write(a[i],' '); end; readln; END. Được đăng bởi vào lúc 9/29/2017 09:52:00 AM

10 comments:

  1. AnonymousOctober 2, 2022 at 10:46 PM

    dạ với số n <=10000 thì sợ chương trình chạy ko nổi Thầy ah

    ReplyDeleteReplies
      Reply
  2. AnonymousFebruary 12, 2024 at 7:41 PM

    Anh yêu em

    ReplyDeleteReplies
    1. AnonymousFebruary 24, 2024 at 10:25 AM

      em đell êu anh :))))))

      DeleteReplies
        Reply
      2. Reply
  3. AnonymousFebruary 24, 2024 at 10:15 AM

    hi what your name

    ReplyDeleteReplies
    1. AnonymousFebruary 24, 2024 at 10:16 AM

      hai cây kem ngàn rưởi

      DeleteReplies
        Reply
      2. Reply
  4. AnonymousFebruary 24, 2024 at 10:16 AM

    ai solo fai fai hông:))))

    ReplyDeleteReplies
    1. AnonymousFebruary 24, 2024 at 10:25 AM

      bố cân tất :)))))))

      DeleteReplies
        Reply
      2. Reply
  5. AnonymousFebruary 24, 2024 at 10:25 AM

    bá dô

    ReplyDeleteReplies
    1. AnonymousFebruary 24, 2024 at 10:27 AM

      bá zoo :P)

      DeleteReplies
        Reply
      2. Reply
  6. UOctober 29, 2024 at 3:16 PM

    ..

    ReplyDeleteReplies
      Reply
Add commentLoad more...

Cảm ơn bạn đã nhận xét

Newer Post Older Post Home Subscribe to: Post Comments (Atom)

Từ khóa » Dãy Số Hạnh Phúc Pascal