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. Program Hotboy;

   Uses crt;

   Var s,i,n: longint;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do

   If ( i mod 2=0) then

   S:=S+i;

   Write(‘tong các so chan từ 1 den ‘,n,’ la’,S);

   Readln

   End.

   Bình luận

2.  uses crt;
    var n,i,s:longint;
    begin
          clrscr;
          write(‘Nhap n: ‘); readln(n);
          for i:=1 to n do if i mod 2 = 0 then inc(s,i);
          writeln(‘Tong: ‘,s);
          readln
    end.

   Bình luận