Bài 2: Số hoàn hảo là số có tổng các ước ( trừ số đó) bằng chính nó. Ví dụ: 6 là số hoàn hảo vì 6=1+2+3. Hãy viết chương trình con kiểm tra 1 số nguyên có là số hoàn hảo hay không? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.

hongvan2603

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

phungthilanhuong8894

program phuongt;
uses crt;
var n: integer;
function kt: integer;
var i, s: integer;
begin
s:=0;
for i:=1 to n-1 do if n mod i = 0 then s:=s+i;
if s=n then write(n, ' la so hoan hao')
else write(n, ' khong phai so hoan hao');
end;
begin
clrscr;
write('Nhap n = '); readln(n);
kt;
readln
end.

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

quanghuy12

uses crt;

var i,n:word;

a:array[1..1000] of longint;

function hh(x:longint):boolean;

var t:longint;i:word;

begin

t:=1;

for i:=2 to (x div 2) do

if x mod i = 0 then t:=t+i;

if t=x then exit(true);

exit(false);

end;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do

if hh(a[i]) = true then writeln(a[i],'la so hoan hao')

else writeln(a[i],'khong phai la so hoan hao');

readln;

end.

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

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

Câu 2 đoạn trích miêu tả nhân vật phương định trong hoàn cảnh nào? Câu 3 chỉ ra 3 phép liên kết được sử dụng trong đoạn trích trên ? Câu 4 chỉ ra những chi tiết có liên quan đến nhan đề “ những ngôi sao xa xôi”? em hiểu nhan đề này như thế nào ? giúp đi 40 điểm lận đó nha ae nhanh nhanh

Dạ mình cần gấp .mn giúp mình với a trong đoạn trích trên su dung phép liên kết câu là phép thế “ tp này “ ở câu 3 thế cho” tp bao dung “ câu 1 đúng không ạ?

Cuối cùng sau khi đợi cả tháng trời tui cũng được cái xác thực cho nhóm. Vẽ anime quayr tưng bừng "xó chợ đi" :). aanf đầu tiên 1 nhóm mới lập mà chỉ 1 tiếng sau đã có xác thực rùi

Bài 1: Số nguyên tố là số có 2 ước là 1 và chính nó. Hãy viết chương trình con kiểm tra 1 số nguyên có là số nguyên tố hay không? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.

A chị giúp e mấy câu này vs ạ e cần gấp ạ

^ : mũ 2 Cho biểu thức: A= (x^+3)^ - (x^+9) (x-3) (x+3) a/ Rút gọn biểu thức b/ Tính giá trị của A khi x = 0 /x/ = 3

Viết đoạn văn tổng phân hợp 12 câu phân tích cả bài Bếp Lửa. Trong đó có sử dụng câu ghép và thán từ Mình đang cần gấp

` x^2 - 5x + 6 = 0` giải phương trình

Mọi người giúp mk với ạ Mk đang cần gấp Các bạn giúp mk làm trắc nghiệm và tự luận nha Tầm 2 giờ chiều mk qua xem lấy kết quả Mong các bạn giúp đỡ Mk cảm ơn rất nhiều

1. Ten years ago, the goverment (decide)___________to begin a food program. At that time, many people in the rural areas of the country(starve)___________ due to several years of drought. 2 Pan: Why weren 't you at the meeting? Lynn: I (wait)____________for an overeas call from my family during that time. 3. Try not to be absent from class again for the rest of the term. You (miss, already) __________too many classes just last week. 4. Minh: What was wrong with your foot? Tam: I (step)_______on a bee while I(run)__________ barefoot through the grass. It stung me. 5. Right now it is winter. I'm tired of cold weather, but spring (come)__________soon. When spring(come)__________this year, I(go) ___________to the park everyday to enjoy the good weather.

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