Viết CT kiểm tra một số tự nhiên N( N<10000) đc nhập vào bàn phím có phải là số hoàn chỉnh hay không? Biết rằng số hoàn chỉnh là một số có tổng các ước nhỏ hơn nó bằng chính nó. Các bạn làm xong thì test hộ mình khi nhập số n: n=2: ko là số hoàn chỉnh n=6: số hoàn chỉnh n=496: số hoàn chỉnh
2 câu trả lời
uses crt;
var n,t,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
if t=n then writeln(n,' la so hoan hao')
else writeln(n,' khong la so hoan hao');
readln;
end.
Program Typlex271;
Uses crt;
Var n,u,i: longint;
Begin
Writeln('n='); Readln(n);
u:=0;
For i:=1 to (n div 2) do
If n mod i = 0 then u:=u+i;
If u=n then writeln(n,' la so hoan chinh')
else writeln(n,' khong phai la so hoan chinh');
Readln
End.
#Xin CTLHN, chúc bạn học tốt
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
