Viết chương trình tính tổng các số lẻ từ 1 đến N, với N là số tự nhiên được nhập từ bàn phím.

0 bình luận về “Viết chương trình tính tổng các số lẻ từ 1 đến N, với N là số tự nhiên được nhập từ bàn phím.”

1. Program BTT;
   Uses crt;
   Var i: longint;
       s,n: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   If i mod 2 = 1 then s:=s+i;
           Write(‘Tong cac so le tu 1 -> ‘,n,’ la: ‘,s);
           Readln
   End.

   Bình luận

2. 1…

   program bai1;

   var s,i,n:longint;

   begin

   write(‘N= ‘);

   readln(n);

   s:=0;

   for i:=1 to n do

   if i mod 2<>0 then s:=s+i;

   write(‘s= ‘,s);

   readln

   end.

   Bình luận