S= 1+2+…+n ( n chia hết cho 2 nhưng không chia hết cho 3) Ai giúp mình với mai kt rồi

0 bình luận về “S= 1+2+…+n ( n chia hết cho 2 nhưng không chia hết cho 3) Ai giúp mình với mai kt rồi”

1. uses crt;

   var n,s,i:longint;

   begin

   repeat write(‘n=’);readln(n);

   until (n mod 2=0) and (n mod 3<>0);

   s:=0;

   for i:=1 to n do s:=s+i;

   write(‘s=’,s);

   readln;

   end.

   Bình luận

2. Program NN;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận