Viết chương trình tính các tổng sau S=1+3+5+-+(2n+1)

0 bình luận về “Viết chương trình tính các tổng sau S=1+3+5+-+(2n+1)”

1. program ct;

   uses crt;

   var i,s,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=1;

   for i:=1 to n do

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

   writeln(‘S=’,s);

   readln

   end.

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var S,i,n: integer;

   Begin

   Write (‘Nhap n=’); 

   Readln (n);

   S:=1;

   For i:= 1 to n do 

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

   Writeln (‘Tong S la:’, S);

   Readln

   End.

   Bình luận