Viết chương trình in ra màn hình tổng các số chẳn bằng n với n nhập từ bàn phím

0 bình luận về “Viết chương trình in ra màn hình tổng các số chẳn bằng n với n nhập từ bàn phím”

1. program sochan;

   uses crt;
   var i,n:integer;

         S:longint;
   begin clrscr;
      writeln(‘Nhap so n: ‘); readln(n);
      for i:=1 to n do

         if i mod 2=0 then S:=S+i;
      write(‘Tong cac so chan bang ‘,n,’ la: ‘,S);
   readln;
   end.

   Học tốt!

   Bình luận

2. 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 bang ‘,n,’ la: ‘,S);
      readln
   end.

   Bình luận