Xuân Đạt Trần
Cấp bậc
Sắt đoàn
Điểm
40
Cảm ơn
8
Đã hỏi
Đã trả lời
Câu trả lời của bạn: 20:30 12/02/2023
program TimUoc;
var N, i: integer;
begin write('Nhap so nguyen N: '); readln(N);
writeln('Cac uoc cua ', N, ' la:');
for i := 1 to N do
begin
if N mod i = 0 then writeln(i);
end;
end.
Câu trả lời của bạn: 20:28 12/02/2023
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.
