Bài 4: Viếtchươngtrìnhtínhtổng. S=2021 + 3 + 5 + 7 + ….+ (2*n-1) S=2021+1/2+1/4+…+1/2*n Với n làsốnguyênđượcnhậpvàotừbànphím a. Sửdụngcâulệnhlặpfor ..

0 bình luận về “Bài 4: Viếtchươngtrìnhtínhtổng. S=2021 + 3 + 5 + 7 + ….+ (2*n-1) S=2021+1/2+1/4+…+1/2*n Với n làsốnguyênđượcnhậpvàotừbànphím a. Sửdụngcâulệnhlặpfor ..”

1. Program Tong;

   var n,i: integer;

   s: longint;

   begin

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

   s:=2021;

   for i:=0 to n do s=s+(2*i+1);

   Write(‘S= ‘,s);

   readln;

   end.

   Cách 2: Dùng While do

   Program tong;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   write(‘Nhap n=’); readln(n);

   s:=2021;

   i:=0;

   while i<=n do 

     begin

   s:=s+(2*i+1);

   i:=i+1;

   end;

   writeln(s);

   readln;

   end.

   Bình luận