Nhập N:Viết Chương trình tính tổng các số chia hết cho 5 từ 1 đến N

0 bình luận về “Nhập N:Viết Chương trình tính tổng các số chia hết cho 5 từ 1 đến N”

1. program phuongt;
   uses crt;
     var n, s, i: integer;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           s:=0;
           for i:=1 to n do if i mod 5 = 0 then s:=s+i;
           write(‘s = ‘, s);
           readln
   end.

   Bình luận

2. giải trong 1 công thức: n:=n-(n mod 5)

   in ra((n+5)*((n-5)/5+1)/2)

   Bình luận