Em hãy viết chương trình và đưa ra màn hình S S=2+4+6+…+200

0 bình luận về “Em hãy viết chương trình và đưa ra màn hình S S=2+4+6+…+200”

1. Program tinh_tong;

   Uses crt; 

   Var S,i: integer; 

   Begin 

   S:=0;

   For i:=1 to 200 do 

   If i mod 2= 0 then

   S:= S+i;

   Writeln (‘Tong S la:’,S);

   Readln 

   End.

   Bình luận