Viết chương trình kiểm tra 1 số nguyên dương N có phải là số hoàn thiện không. Biết các ước của nó trừ chính nó bằng nó

171371254564854

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

phuongmanh145

program hoanthien;

uses crt;

var n,t,i:integer;

begin

clrscr;

write('Nhap so: ')

readln(n);

t:=0;

for i:=1 to n div 2 do

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

if t=n then write(n,' la so hoan thien')

else write(n' khong la so hoan thien');

readln

end.

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

nguyenthingoctrang_ddt

program Sohoanthien;
uses crt;
var n,i,t:integer;
BEGIN
clrscr;t:=0;
Write('Nhap so nguyen duong N: ');readln(n);
for i:=1 to n do
if n mod i =0 then t:=t+i;
if t/n=2 then writeln('La so hoan thien') else writeln('Khong la so hoan thien');
readln
END.

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

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

Đọc khổ thơ sau và trả lời các câu hỏ

Cho tam giác vuông ABC, vuông tại A, đường cao AH . Qua H kẻ đường thẳng vuông góc với AB tại E , vuông góc với AC tại F 1/ Tứ giác AEHF là hình gì?Vì sao 2/ Gọi O là trung điểm của HC . Chứng minh E đối xứng với F qua O 3/ Gọi M là trung điểm của HC.Kẻ MI song song AH(I thuộc AC) , gọi K là điểm đối xứng của I qua M a) Tính độ dài HI biết AC =5cm b) CM:HICK là hình thoi c) Cm: BO vuông góc với AM

Câu 1 : Một vật đặc không thấm nước nổi trên mặt nước phát biểu nào sau đây đúng : A trọng lượng riêng của vật nhỏ hơn trọng lượng riêng của nước B lực đẩy Acsimet bằng trọng lượng của vật C . Lực đẩy Acsimet lớn hơn trọng lượng của vật D . Trọng lượng riêng của nước = trọng lượng riêng của vật Câu 2 : Một cái thùng hình trụ cao 1,2m chứa đầy nước. Biết trọng lượng riêng của nước là d = 10000 N/m3 a) Tính áp suất của nước tác dụng lên đáy thùng b) Tính áp suất của nước tác dụng lên một điểm cách mặt thoáng 0,2m? c) Nếu thả một miếng sắt có thể tích là 2dm3 vào thùng thì lực đẩy Ác-si-mét tác dụng lên miếng sắt khi nhúng chìm nó hoàn toàn trong nước là bao nhiêu?

Bài 4: Trên tia Ox lấy hai điểm A và B sao cho OA = 4cm, OB = 8cm a) Tính AB?? b) Điểm A có là trung điểm của OB không? Vì sao? c) Gọi M là trung điểm của đoạn thẳng OA. Chứng tỏ rằng: MB = 30M Bài 5: Cho A = 4mũ0 + 4mũ1 + 4mũ2 + 4mũ3 + ... + 4mũ20 Hãy so sánh 3A + 1 với 63mũ7 Nhanh nhanh giúp mik với nhé!!!

Qua tìm hiểu đặc điểm khí hậu các môi trường trên trái đất khí hậu ở nước ta đã gây những khó khăn gì cho sản xuất và đời sống Nhanh nhất 5 sao

Giôn- xi đã từng nói khi ngắm nhìn chiếc lá mà cụ Bơ men vẽ "Muốn chết là 1 tội" nhưng cụ Bơ men đã đánh đổi sinh mạng của mình để vẽ nên chiếc lá này. Điều tưởng như mâu thuẫn này gây cho em những suy nghĩ gì. Viết đoạn văn để lý giải.

kể về một trong những thành phố ở Việt Nam hoặc trên thế giới mà bạn biết(50-60 câu bằng tiếng anh) ĐẦY ĐỦ CÁC YẾU TỐ TRONG ẢNH

một bánh xe bán kính 60cm quay đều 50 vòng trong thời gian 1s. tìm vận tốc góc và vận tốc dài cảu một điểm trên vành bánh xe

Cho tam giác ABC có AB=AC tia phân giác cắt góc A cắt BC tại D a chứng minh ∆ABD=∆ACD b,trên nửa mặt phẳng bờ BC chứa điểm A vẽ tia OAy/BC.Trên nửa mặt phẳng bờ AD chứa điểm C vẽ tia Cx vuông góc BC chứng minh yAc=ABC c, chứng minh AD//Cx

Trong các sự vật và hiện tượng sau hãy chỉ ra vật tác dụng lực và kết quả mà lực gây ra cho vật bị nó tác dụng ? a, treo 1 quả nặng lên lò xo ,ta thấy lò xo bị dãn ra b, nhà cửa các cây cối bị đổ , gãy sau cơn bão

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