viết chương trình tính tổng các số lẻ liên tiếp từ 1 đến n (n là giá trị 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ẻ liên tiếp từ 1 đến n (n là giá trị nhập từ bàn phím).”

1. Program BTH;
   uses crt;
   var i,n,s:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           i:=1;
           While i<>n do
           Begin
                   If i mod 2=1 then s:=s+i;
                   i:=i+1;
           end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var n:integer;

         S:longint;

   begin clrscr;

      writeln(‘Nhap so: ‘); readln(n);

        S:=0;

      for i:=1 to n do

        begin

           if i mod 2<>0 do

           S:=S+i;

        end;

      write(‘Tong cac so le la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận