Câu 1 : 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 từ bàn phím )
Câu 1 : 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 từ bàn phím )
By Margaret
By Margaret
Câu 1 : 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 từ bàn phím )
Câu 1 : 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 từ bàn phím )
TL :
Program insole ;
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
Program In_So_Le;
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.