Tin học Viết chương trình

[memberdota]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình nhập vào một số nguyên dương. In ra liệt kê, đếm và tính tổng các ước số của n.

 

[haiphongit.cntt]

uses crt;
var i,n : integer;
      sum: longint;
begin
      clrscr;
write('Nhap so nguyen duong n : ');
readln(n);
sum:=0;
for i:=1 to (n div 2) do          [COLOR="Lime"] {ước số của n thì phải có n }[/COLOR]
if n mod i = 0 then sum:=sum+i;
writeln('Tong cac uoc cua ',n,' la : ', sum);
readln;
end.