Question

Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập).

1. Hướng dẫn:

– 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.

Answer 1

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.