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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Bùi Thị Huyền

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

Nguyễn Lê Phước Thịnh
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.

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

Các câu hỏi tương tự
nguyễn bùi hương giang
Xem chi tiết
Thảo
Xem chi tiết
Duy Lương
Xem chi tiết
Thông Trần
Xem chi tiết
Hiền thúy
Xem chi tiết
Tiểu Bạch Kiểm
Xem chi tiết
hồng phúc
Xem chi tiết
Mai Chi
Xem chi tiết
duong
Xem chi tiết