Viết pt tính tổng các tổng sau Vd1 s=1+2+-+N

0 bình luận về “Viết pt tính tổng các tổng sau Vd1 s=1+2+-+N”

1. program  az;

       uses Crt;
           var i,n,S : real;
    begin
    clrscr;
      Write(‘Nhap n: ‘); readln(n);
     For i:=1 to n do S:=S+i;
   write(‘S là : ‘,S);
   readln
   end.

   Bình luận

2. Uses crt;
   Var s, i, n:integer;
   Begin
   Clrscr;
   Write(‘Nhap n = ‘); readln(n);
   s:=0;
   For i:=1 to n do inc(s, i);
   Writeln(‘Tong cua S la: ‘,s);
   Readln
   End.

   Bình luận