viết chương trình in ratổng của các số chẵn từ 1 đến n với n nhập vào từ bàn phím. giúp mik vs ạ

0 bình luận về “viết chương trình in ratổng của các số chẵn từ 1 đến n với n nhập vào từ bàn phím. giúp mik vs ạ”

1. program Tong_cac_so_chan;

   uses crt;

   var T, n, i: integer;

   Begin

      clrscr;

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

      T:=0;

      for i:=1 to N do if (i mod 2=0) then T:=T+i;

      writeIn(‘Tong cac so chan la tu 1 den’, n, ‘ la: ‘, T);

      readIn;

   End.

   Bình luận

2. Program tong_so_chan;

   Uses crt;

   Var

   S,N,I:Integer;

   Begin

   Clrscr;

   Write(‘Nhap N ‘);Readln(N);

   S:=0

   For I:=1 to N do

   If ( I mod 2=0) then

   S:=S+I;

   WriteIn(‘Tong cac so chan la’,S)

   ReadIn;

   End

   Bình luận