Việt chương trình nhập vào số nguyên dương N(N<500). Tính và in màn hình tổng đây số sau : S= 2021+2+4+6+-.+2N Mọi người giúp em với ạ ✋

0 bình luận về “Việt chương trình nhập vào số nguyên dương N(N<500). Tính và in màn hình tổng đây số sau : S= 2021+2+4+6+-.+2N Mọi người giúp em với ạ ✋”

1. var n, i: word;

         s: longint;

   Begin

        S:=2021;

        Write(‘n = ‘); readln(n);

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

        Write(‘s = ‘, s);

        Readln

   End.

   Bình luận

2. uses crt;

   var i,n: integer;

   s: longint;

   begin

   clrscr;

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

   s:=2021;

   for i:=1 to (2*n) do

   if i mod 2=0 then s:=s+i;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận