Viết công thức tính tổng các số nguyên chẳng liên tiếp từ 1-n với n là số nhập từ bàn phím

0 bình luận về “Viết công thức tính tổng các số nguyên chẳng liên tiếp từ 1-n với n là số nhập từ bàn phím”

1. *Tổng số nguyên chẵn:

   – Công thức: for i:=1 to n do if i mod 2=0 then t:=t+i;

   – Chương trình:

   program tong_chan;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);   readln(n);

          t:=0;

          for i:=1 to n do 

                 if i mod 2=0 then t:=t+i;

          write(‘Tong cac so chan tu 1 den n la: ‘,t);

          readln;

   end.

   *Tổng số nguyên:

   – Công thức: for i:=1 to n do t:=t+i;

   – Chương trình:

   program tong_so;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);   readln(n);

          t:=0;

          for i:=1 to n do t:=t+i;

          write(‘Tong cac so nguyen tu 1 den n la: ‘,t);

          readln;

   end.

   Bình luận

2. Công thức: for i:=1 to n do s:=s+i;

   VTC:

   program phuongt;
   uses crt;
     var n, i, s: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          s:=0;
          for i:=1 to n do s:=s+i;
          write(‘Tong = ‘, s);
          readln
   end.

   Bình luận