Viết chương trình tính tổng các số chẵn từ 1 đến n.

0 bình luận về “Viết chương trình tính tổng các số chẵn từ 1 đến n.”

1. uses crt;
   var s,i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do if i mod 2 = 0 then s:=s+i;
      write(‘Tong cac so chan tu 1 den ‘,n,’ la: ‘,s);
      readln
   end.

   Bình luận

2. Uses CRT;

   Var i,n,s:integer;

   Begin clrscr;

   Write(‘Nhap so n=’);Readln(n);

   S:=0;

   For i:=1 to n do

   If i mod 2=0 do S:=S+i;

   Writeln;

   Write(‘ Tong cac so chan la ‘ ,S);

   Readln;

   End.

   Bình luận