Quảng cáo
2 câu trả lời 192
2 năm trước
program SoHoanThien;
var
num, total, i: integer;
begin
total := 0;
write('Nhap so nguyen: ');
readln(num);
for i := 1 to num-1 do
begin
if num mod i = 0 then
total := total + i;
end;
if total = num then
writeln(num, ' la so hoan thien')
else
writeln(num, ' khong la so hoan thien');
end.
Thiên Bảo
· 2 năm trước
Cho em hỏi là num vs total là gì v ạ e chưa học
2 năm trước
program SoHoanThien;
var
num, total, i: integer;
begin
total := 0;
write('Nhap so nguyen: ');
readln(num);
for i := 1 to num-1 do
begin
if num mod i = 0 then
total := total + i;
end;
if total = num then
writeln(num, ' la so hoan thien')
else
writeln(num, ' khong la so hoan thien');
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Thành viên hăng hái nhất
Xếp hạng tuần này
Xếp hạng tháng này
Bảo Châu4200 điểm
VietJack2760 điểm
草原 (Phone 🐼)1625 điểm
ххəwyв1450 điểm
hgiang850 điểm
Muzik 🐼(Athuw)565 điểm
Athuw🐼430 điểm
Angel Tanysha300 điểmNgocphat Vu200 điểm
hack dễ vãi145 điểm
Lily (타오린)145 điểmCông Thắng Bùi120 điểm
Hoai Thuong90 điểmTiến Phát Trần65 điểm
MrPinious65 điểm
Bài viết mới nhất Lớp 8
-
3 năm trước5487
-
3 năm trước5163
-
3 năm trước4185
-
3 năm trước4048
-
3 năm trước3974
Gửi báo cáo thành công!
