- Cho S = 0. - Cho biến i chạy từ 1 đến n. - Nếu i chẵn ( i chia 2 dư 0) thì cộng thêm i vào S. - In ra S. làm bài Program In_So_Le; Uses crt; var S,i,n: integer; Begin Clrscr; Write('Nhap so n ='); readln(n); S:= 0; For i:=1 to n do if i mod 2 =1 then S:= S+i; Writeln('Tong cac so le nho hon ',n,' la: ',S); readln end.
- Cho biến i chạy từ 1 đến n. - Nếu i chẵn ( i chia 2 dư 0) thì cộng thêm i vào S. - In ra S.
Giải:
Uses crt; var S,i,n: iteger; Begin Clrscr; Write('Nhap so n ='); readln(n); S:= 0; For i:=1 to n do if i mod 2 =1 then S:= S+i; Writeln('Tong cac so le nho hon ',n,' la: ',S);
