Dương Suối
Hỏi từ APP VIETJACK
VCT pascal nhập số N từ bàn phím xuất ra màn hình
+ Các ước của N
+ Tính tổng các ước của N
+ Xuất ra màn hình các số hoàn hảo từ 1- tổng các ước của N
+ Các ước của N
+ Tính tổng các ước của N
+ Xuất ra màn hình các số hoàn hảo từ 1- tổng các ước của N
Quảng cáo
1 câu trả lời 384
uses crt;
var s,n,i,j,k,x:integer;
Begin
clrscr;
write('Nhap N : ');readln(n);
write('Cac uoc cua ',n,': ');
for i:=1 to n do if n mod i = 0 then begin write(i,' ');s:=s+i end;
writeln;
writeln('Tong cac uoc : ',s);
write('Cac so hoan hao : ');
for j:=1 to s do begin
for k:=1 to j-1 do if j mod k = 0 then x:=x+k;
if x=j then write(j,' ');
x:=0
end;
readln
End.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45347 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34770
-
Đã trả lời bởi chuyên gia
30566
-
Hỏi từ APP VIETJACK28059
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22322
Thành viên hăng hái nhất trong tuần
-
~chocobi~
1610 điểm
-
♉︎𓍢🎧ＡＮ_Ｍê_ＯＴＰ_Dương _Ｈùng ✧˚.🎀༘⋆✧
935 điểm
-
Châu 830 điểm
-
zozo
670 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
625 điểm
-
cong ngyen 445 điểm
-
౨ৎʏᴜɴɴɪᴇᴍᴜɪ౨ৎ
405 điểm
-
Nguyễn Minh Kiên
395 điểm
-
ha my
370 điểm
-
song ngư～ 💖☘🍀 (。・ω・。)
245 điểm
-
Lĩnh Hoa 205 điểm
-
5 LE DUC AN 200 điểm
-
I love otp /ZATA x LAVILLE/
180 điểm
-
Anh Shin đẹp trai
175 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước9807
-
4 năm trước9239
-
4 năm trước7961
-
4 năm trước8082
-
4 năm trước7684
Gửi báo cáo thành công!
