Viết chương trình pascal tìm số hoàn hảo với viết chương trình tính tổng các ước của 1 số n dương
Quảng cáo
1 câu trả lời 317
BEGIN
clrscr;
write('nhap so N');
readln(N);
S:=0;
For i:=1 to (N-1) do
IF N mod i =0 then S:=S+1;
Writeln('Tong uoc so cua ',N,'la ',S );
Readln;
END.
clrscr;
write('nhap so N');
readln(N);
S:=0;
For i:=1 to (N-1) do
IF N mod i =0 then S:=S+1;
Writeln('Tong uoc so cua ',N,'la ',S );
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
86267
Gửi báo cáo thành công!
