Viết phương trình tính tổng:S=1+2+3+…+n.Trong đó n là số nguyên nhập từ bàn phím.

0 bình luận về “Viết phương trình tính tổng:S=1+2+3+…+n.Trong đó n là số nguyên nhập từ bàn phím.”

1. program tong;

   uses crt;

   var i,s,n:integer; 

   begin

   clrscr;

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

   s:=0;

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

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận

2. program b1;

   var s,n,i:integer;

   begin

          clrscr;

           write(‘nhap so n=’);

           readln(n);

           For i=1 to n do s:=s+1;

           writeln(‘tong la’ : , s);

           readln

   end.

   Bình luận