Hãy viết chương trình tính S(n)=1+2+3+-+n * Pascal nhé

0 bình luận về “Hãy viết chương trình tính S(n)=1+2+3+-+n * Pascal nhé”

1. program oken;

   uses crt;

   var n,s,i: longint;

   begin

   clrscr;

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

   for i:=1 to n do

       s:=s+i;

   writeln(‘S(n)=’,s);

   readln;

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var s,i,n : integer ;

   Begin

   Clrscr;

   Write(‘nhao n’); readln(n);

   For i:= 1 to n do

   S:=s+i;

   Writeln(‘S(n)=’ ,S);

   Readln

   End.

   Bình luận