cần mn giúp ạ! Viết chương trình Tính tổng : Với n là số nguyên dương nhập vào từ bàn phím ( n nhỏ hơn 100000000) đg gấp hứa 5*

0 bình luận về “cần mn giúp ạ! Viết chương trình Tính tổng : Với n là số nguyên dương nhập vào từ bàn phím ( n nhỏ hơn 100000000) đg gấp hứa 5*”

1. program bt;

   uses crt;

   var n, i, S: Longint;

   begin

     clrscr;

     write(‘Nhap n la:’); readln(n);

     S := 0;

     for i := 1 to n do

       begin

       if i mod 4 <> 0 then S := S + i else S := S – i;

       end;

     writeln(‘Tong la=’,S);

     readln

   end.

   Xin câu trả lời hay nhất ạ :3

   Bình luận

2. var n, i: longword;

         S: int64;

   Begin

      Write(‘n = ‘); readln(n); s:=0;

      For i:=1 to n do

          if (i mod 4=0) then s:=s-i

          Else s:=s+i;

       Write(‘s = ‘, s);

       Readln

   End.

   Bình luận