Viết chương trình nhập mảng A với N số nguyên(N<=10000) và một chương trình con kiểm tra số hoàn hảo. Hãy tính tổng các số hoàn hảo có trong mảng A

nhungoc961911

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

ngocdiieu

program hoan_hao;

uses crt;

var A:array[1..10000] of integer;

n,i,t:integer;

{---Chuong-trinh-con---}

function kthh(k:integer):boolean;

var s,j:integer;

begin

s:=0;

for j:=1 to k div 2 do

if k mod j=0 then s:=s+j;

if s=k then kthh:=true else kthh:=false;

end;

{---Chuong-trinh-chinh---}

BEGIN

clrscr;

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do

begin

write('A[',i,']= '); readln(A[i]);

if kthh(A[i]) then t:=t+A[i];

end;

write('Tong cac so hoan hao trong mang A la: ',t);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

vandungbsle

uses crt;
var n,i,s:longint;a:array[1..10000] of longint;
{---Ham-hoan-hao---}
function hh(a:longint):boolean;
var i,s:longint;
begin
s:=0;
for i:=1 to a div 2 do
if a mod i=0 then
inc(s,i);
if s=a then
hh:=true
else
hh:=false;
end;
{---Chuong-trinh-chinh---}
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,': '); read(a[i]);
if hh(a[i]) then inc(s,a[i]);
end;
writeln('Tong hoan hao: ',s);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

em hãy viết bài văn nghị luận về môi trường biển

nêu tính chắt hóa học của hidro? viết PT phản ứng minh họa?

viết một đoạn văn khoảng 200 từ trình bày cảm nhận của em đoạn văn "Đất nước 4 vì sao ......phía trước ' trong bài mùa xuôn nho nhỏ

Em hãy viết một đoạn văn khoảng một trang giấy thi trình bày suy nghĩ của em về một việc trong năm điều bác Hồ dạy yêu tổ quốc yêu đồng bào đặc biệt trong thế hệ trẻ của thời nay Giúp mk vs 🙇🙇🙇 mai mk thì rồi😭😭😭😭

Đây là một số bài tiếng anh , làm hộ mik vs nha cảm ơn nhiều ạ

em hãy viết 1 bài văn nghị luận về 1 số học sinh xả rác trong lớp học

Cho các tập hợp sau: a) Các cá thể loài tôm sống trong hồ b) Các cá thể cá trong ao c) Các con thỏ trong một khu rừng d) Các con hổ được nuôi trong vườn bách thú e) Các con chó nuôi f) Các con chó sói trong rừng g) Các cây rừng trong một khu rừng HÃY XÁC ĐỊNH TẬP HỢP NÀO LÀ QUẦN THỂ, TẬP HỢP NÀO KHÔNG PHẢI QUẦN THỂ, TẬP HỢP NÀO LÀ QUẦN XÃ. GIẢI THÍCH

Lấy 4 vd về quyền tự do kinh doanh Help mee

Tại sao các phân tử nước ở bề mặt khi có động năng lớn lại có thể thắng được công cản do lực hút của các phân tử ở trên bề mặt nước và thoát ra khỏi mặt nước?

Tại sao các phân tử hơi nước khi va chạm vào mặt nước lại bị các phân tử nước hút lại vào trong nước?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến