🔻 Sắp xếp chương trình:

6. Uses Crt;

1. Var n, i, S : Integer;

3. Begin

4. Clrscr;

5. Write('Nhap vao mot so nguyen nho hon 100, n =');

10. Readln(n);

2. For i := 2 To n Do If (i mod 2 <> 0) Then S := S + i;

8. Writeln('S = ', S);

7. Readln

9. End.

🔻 Chương trình thực hiện:

- Tính tổng các số lẻ phạm vi từ 2 đến n

uses crt;

var n,i,s: integer;

begin

clrscr;

write('Nhap vao mot so nguyen nho hon 100, n=');

readln(n);

for i:=2 to n do if (i mod 2<>0) then s:=s+i;

writeln('S=',s);

readln

end.

CT tính tổng các số lẻ từ 2 tới n với n nhập từ bàn phím (n<100)