Viết chương trình tính tổng các số chẵn trong khoảng từ 1 đến n (n nguyên dương nhập từ bàn phím) xin cảm ơn ạ!!!

0 bình luận về “Viết chương trình tính tổng các số chẵn trong khoảng từ 1 đến n (n nguyên dương nhập từ bàn phím) xin cảm ơn ạ!!!”

1. 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;
   Writeln(‘Tong cac so chan la ‘,S);
   Readln;
   End.

   Bình luận

2. program tinhtong;

   uses crt;

   var n,i,t: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;

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

        readln;

   end.

   Bình luận