Bài Tập Về Số Hoàn Hảo, Số Chính Phương.

Bài Tập Pascal Tổng Hợp Menu

• Home
• Features
  • Contact
  • Sitemap
• Blog
• Sitemap
• Categories
  • CSS
    • Item 11
    • Item 12
    • Item 13
    • Item 14
  • Graphic design
    • Item 21
    • Item 22
    • Item 23
    • Item 24
  • Development
    • Item 31
    • Item 32
    • Item 33
    • Item 34
  • Web design
    • Item 41
    • Item 42
    • Item 43
    • Item 44
• Work
  • Music
    • Recording
      • Recording 1
      • Recording 2
      • Recording 3
    • Equipment
      • Equipment 1
      • Equipment 2
      • Equipment 3
    • Distribution
      • Distribution 1
      • Distribution 2
      • Distribution 3
  • Video
    • Alpha
      • Alpha 1
      • Alpha 2
      • Alpha 3
    • Omega
      • Omega 1
      • Omega 2
      • Omega 3
    • Zulu
      • Zulu 1
      • Zulu 2
      • Zulu 3
  • Image
    • Work 1
      • Work 1
      • Work 2
      • Work 3
    • Work 2
      • Work 1
      • Work 2
      • Work 3
    • Work 3
      • Work 1
      • Work 2
      • Work 3
• 404

Uncategories Bài tập về số hoàn hảo, số chính phương.

Bài tập về số hoàn hảo, số chính phương.

linhc0ngtu 17:53 linhc0ngtu Bài 1. Số hoàn hảo (Năm 11-12) Trong một buổi học toán Bờm được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các ước trừ nó ra thì bằng chính nó. Ví dụ: Số 6 là số hoàn hảo vì nó có tổng các ước 1 + 2 + 3 = 6, số 8 không phải là số hoàn hảo vì 1 + 2 + 4 = 7 ≠8. Yêu cầu:Cho dãy số a1, a2,... an. Hãy giúp Bờm đếm xem trong dãy có bao nhiêu số có tổng các chữ số là số hoàn hảo. Dữ liệu vào:Từ file BAI2.INP gồm: - Dòng đầu tiên là số nguyên dương n (n ≤ 100).- n dòng tiếp theo ghi n số nguyên a1, a2,... an (0 ≤ ai ≤109). Kết quả:Ghi ra file BAI2.OUT gồm: Một dòng duy nhất là kết quả của bài toán program sohoanhao; uses crt; var N,i,dem:longint; a:array[1..100] of longint; f1,f2:text; function sohoanhao(n:longint):boolean; var S,i:longint; shh:boolean; Begin S:=0;shh:=true; for i:=1 to n-1 do if n mod i = 0 then S:=S+i; if n<>S then shh:=false; sohoanhao:=shh; End; {----------------------------------------------------} BEGIN assign(f1,'sohoanhao.inp');reset(f1); assign(f2,'sohoanhao.out');rewrite(f2); readln(f1,N); dem:=0; for i:=1 to N do Begin readln(f1,a[i]); if sohoanhao(a[i]) then inc(dem); End; write(f2,dem); close(f1);close(f2); END. Bài 2. Số chính phương (Năm 09-10) Số chính phương là số có thể triển khai thành bình phương của một số khác. Ví dụ: 9, 16 là các số chính phương vì 9 = 32 ; 16 = 42 . Tính tổng các số chính phương trong dãy số tự nhiên liên tiếp 1, 2, 3, ..., N (N <= 30000). Dữ liệu vào: Từ file văn bản bai1.inp: chứa một số tự nhiên n. Kết quả: Ghi ra file văn bản bai1.out: Chứa một số là tổng của các số chính phương. Ví dụ: bai1.inp bai1.out 10 14 chương trình: uses crt; var n,i,s:longint; f1,f2:text; FUNCTION chinhphuong(n:longint):boolean; var cp:boolean; i:longint; Begin cp:=false; for i:=1 to n do if (n div i = i) and (n mod i = 0) then cp:=true; chinhphuong:=cp; End; {-----------------------------------------------------------------------} Begin assign(f1,'chinhphuong.inp');reset(f1); assign(f2,'chinhphuong.out');rewrite(f2); s:=0; readln(f1,n); for i:=1 to n do if chinhphuong(i) then s:=s+i; write(f2,s); close(f1);close(f2); END.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email

Next « Prev Post Previous Next Post »

2 nhận xét

Write nhận xét Unknown AUTHOR lúc 15:59 27 tháng 4, 2018 delete

Cũng đc bạn ạ. Cố gắng phát huy.

Reply Unknown AUTHOR lúc 19:48 15 tháng 6, 2021 delete

tốt lắm bn ơi

Reply

ConversionConversion EmoticonEmoticon

Conversion Clean Đăng ký: Đăng Nhận xét (Atom) Được tạo bởi Blogger.

Popular

• Bài tập về số nguyên tố, số siêu nguyên tố, số nguyên tố tương đương, số phản nguyên tố. Bài 1. Phân tích số nguyên dương N thành tích của các thừa số nguyên tố. VD: 12 = 2*2*3 Chương trình uses crt; var i,j,n:l...
• Bài tập về số hoàn hảo, số chính phương. Bài 1. Số hoàn hảo (Năm 11-12) Trong một buổi học toán Bờm được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các...
• Ngày tháng năm sau ngày được nhập N ngày Đề 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...
• Bài tập về dãy con: Bài 1: Viết chương trình nhập số nguyên K ( K > 1), và N số nguyên (N >= 1). Đưa ra màn hình độ dài đoạn lớn nhất các phần tử liên...
• Độ bền của một số nguyên Độ bền của một số nguyên không âm n được định nghĩa như sau: - Nếu N có một chữ số thì độ bền của n bằng 0. - Nế...
• Bình Chọn Vietnam nexttop model Bình chọn qua điện thoại Trong vòng chung kết cuộc thi “Vietnam Next Top Model” trên VTV3 các thí sinh được đánh số báo danh là một số ng...
• Đếm số ký tự Bài 1. Đếm số ký tự ( năm 08-09). Cho tệp văn bản mang tên Bai2.inp Yêu cầu: Đếm số chữ cái khác nhau trong tệp trên và số lần xuấ...
• Số N1 Xét một số N có 4 chữ số và không phải tất cả các chữ số đều giống nhau. Phép tính độ lệch được thực hiện như sau: Tạo số thứ nhất N1 bằ...
• Số Đảo Ngược  Cho số nguyên dương X, khi đảo ngược trật tự các chữ số của X ta sẽ thu được một số nguyên dương Y, Y được gọi là số đảo ngược của X. Ví...
• Một điểm giao dịch của ngân hàng X có N loại tiền mệnh giá từ A[1], A[2], A[3], . . , A[N] (đơn vị ngàn đồng) với số lượng tiền mỗi loại không giới hạn. Một khách hàng cần rút với số tiền là M (ngàn đồng). Hãy cho biết cần bao nhiêu tiền mỗi loại để chi trả sao cho số tờ là ít nhất. Một điểm giao dịch của ngân hàng X có N loại tiền mệnh giá từ A[1], A[2], A[3], . . , A[N] (đơn vị ngàn đồng) với số lượng tiền mỗi loại ...

Comment

statistics