tính tổng s=1+3+5+7+-+n với n nhập từ bàn phím

0 bình luận về “tính tổng s=1+3+5+7+-+n với n nhập từ bàn phím”

1. Program Hotboy ;

   Uses crt;

   Var s,i,n : longint;

   Begin

   Clrscr ;

   S:=0;

   Write(‘nhap so n tu ban phim ‘);

   Readln(n);

   For i:=1 to n do

   If (i mod 2<>0) then S:=S+i;

   Writeln(‘tong can tim la’,S);

   Readln

   End.

   Bình luận

2. program oken;
   uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           for i:=1 to n do
                   if i mod 2 = 1 then
                           s:=s+i;
           writeln(‘Tong cac so le tu 1 den ‘,n,’: ‘,s);
           readln;
   end.

   Bình luận