uses crt; var n, i, s: integer; begin clrscr; textcolor (white); write ('nhap n: '); readln (n); i:=0; s:=0; repeat i:=i+1; for i:=i to n do if i mod 2 = 1 then begin s:=s+i; end; until i = n; textcolor (lightblue); writeln ('tong cua cac so la nho hon hoac bang ',n,' la: ',s); textcolor (green); writeln ('========== HET =========='); readln; end.
uses crt; var n, i, s: integer; begin clrscr; write ('nhap n: '); readln (n); i:=0; s:=0; repeat i:=i+1; for i:=i to n do if i mod 2<>1 then begin s:=s+i; end; until i=n; writeln ('tong cua cac so la nho hon hoac bang ',n,' la: ',s); readln; end.
