In ra màn hình các số chẵn và tính tổng các số đó ( từ 5 –> 100)

0 bình luận về “In ra màn hình các số chẵn và tính tổng các số đó ( từ 5 –> 100)”

1. program bt;

   uses crt;

   var i,t:integer;

   begin clrscr;

   t:=0;

   for i:=5 to 100 do 

   if i mod 2 = 0 then t:=t+i;

   writeln(t);

   readln;

   end.

   Bình luận