Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Oanh Kim

viết chương trình nhập vào 1 dãy số nguyên có n phần tử,n được nhập từ bàn phím. thông báo ra màn hình 1 số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh.

Nguyễn Chơn Nhân
30 tháng 3 2020 lúc 20:57

var
a:array[1..1000000] of longint;
n,i:longint;
procedure xuli(n:longint);
var i:longint;s:int64;
begin
s:=0;
if n<>1 then s:=1;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
s:=s+i;
if n div i<>i then
s:=s+ n div i;
//writeln(s);
end;
if (s=n) and (s<>0) then writeln(n,' la so hoan chinh');
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
xuli(a[i]);
readln;
end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
30 tháng 3 2020 lúc 21:25

uses crt;
var a:array[1..100]of integer;
n,i,t,j:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('vui long nhap lai')
else begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly---------------------------}
writeln('cac so hoan chinh trong day la: ');
for i:=1 to n do
begin
t:=0;
for j:=1 to a[i]-1 do
if a[i] mod j=0 then t:=t+j;
if t=a[i] then write(a[i]:4);
end;
end;
readln;
end.

Khách vãng lai đã xóa
Nguyễn Chơn Nhân
30 tháng 3 2020 lúc 20:24

hỏi cái

Khách vãng lai đã xóa

Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Nhân lê
Xem chi tiết
duyy
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Tích Nguyệt
Xem chi tiết