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
2 câu trả lời
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.
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.
