nhập số nguyên dương n. viết chương trình tính tổng các số lẻ nhỏ hơn hoặc bằng n. nhanh nha cần gấp

Question

thaophuobg · Answer

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.

quynhnhu · Answer

Giải :

Program Tinh_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

xin hay nhất ạ