20/12/2022
20/12/2022
uses crt;
var n, i, s : integer ;
begin
clrscr;
write('Nhap n: '); readln(n);
for i := 1 to n do
if n mod i = 0 then s := s + i ;
writeln('Tong cac uoc: ',s);
readln ;
end .
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời