Viết chương trình nhập vào số tự nhiên n và tính tổng các ước thực sự của n.
Quảng cáo
1 câu trả lời 3829
uses crt;
var n,i,s :integer;
begin
clrscr;
writeln('Nhap n'); readln(n);
s:=0;
for i:=1 to n do
if n mod i:=0 then
begin
s:=s+i;
writeln(s);
end;
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
19767 -
Đã trả lời bởi chuyên gia
11126 -
11114
-
Đã trả lời bởi chuyên gia
11019 -
Đã trả lời bởi chuyên gia
8782 -
Đã trả lời bởi chuyên gia
7676 -
Đã trả lời bởi chuyên gia
7398 -
Đã trả lời bởi chuyên gia
7342
Gửi báo cáo thành công!
