Nhập ct các số n các số nguyên chẵn trên bàn phím

0 bình luận về “Nhập ct các số n các số nguyên chẵn trên bàn phím”

1. program chan;

   uses crt;

   var n,i: integer;

   Begin

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

            for i:=1 to n do

            if i mod 2=0 then write(i,’  ‘);

            readln

   End.

   Bình luận

2. var n,i,s:longint;

   begin

   read(n);

   s:=0;

   for i:=1 to n do if i mod 2=0 then s:=s+i;

   write(s);

   end.

   Bình luận