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

0 bình luận về “Viết chương trình in ra tổng các số lẻ nhỏ hơn n ( Với n được nhập từ bàn phím).”

1. Phương trình như sau:

    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.

    

   Bình luận

2. var i,n,t:int64;

   begin

    write(‘nhap n’); readln(n); t:=0;

   for i:=1 to n-1 do 

   if (i mod 2)<>0 then t:=t+i;

   write(‘tong can tim’,t); readln end.

   Bình luận