Bài 4: Bài toán và thuật toán

BH

Nhập vào 1 số nguyên dương m Tính tổng và đếm tất cả các số hoàn hảo phạm vi từ 1 đến m

NT
30 tháng 10 2020 lúc 18:19

uses crt;

var i,m,j,t,dem,s:integer;

begin

clrscr;

write('Nhap m='); readln(m);

t:=0;

dem:=0;

for i:=1 to m do

begin

s:=0;

for j:=1 to i-1 do

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

if s=i then begin

inc(dem);

t:=t+i;

end;

end;

writeln;

writeln('Tong cac so hoan hao trong pham vi tu 1 toi ',m,' la: ',t);

writeln('So so hoan hao trong pham vi tu 1 toi ',m,' la: ',dem);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
NG
Xem chi tiết
H24
Xem chi tiết
DL
Xem chi tiết
TT
Xem chi tiết
HT
Xem chi tiết
TK
Xem chi tiết
HP
Xem chi tiết
MC
Xem chi tiết
H24
Xem chi tiết