viết chương trình nhập vào số nguyên n tính tổng các ước của n

viết chương trình nhập vào số nguyên n tính tổng các ước của n

0 bình luận về “viết chương trình nhập vào số nguyên n tính tổng các ước của n”

  1. progam tong_uoc;

    uses crt;

    var n,i,t:integer;

    begin

           clrscr;

           write(‘Nhap n: ‘);  readln(n);

           t:=0;

           for i:=1 to n do

                  if n mod i=0 then t:=t+i;

           write(‘Tong cac uoc cua ‘,n,’ la: ‘,t);

           readln;

    end.

    Bình luận

Viết một bình luận