viết chương trình tính tông M=10+12+14+…+200

0 bình luận về “viết chương trình tính tông M=10+12+14+…+200”

1. Program Tinhtong;

   Uses crt;

   Var i, M : integer;

   Begin clrscr;

   For i := 10 to 200 do

   If i mod 2 = 0 then M := M+i;

   Writeln(‘Tong M co gia tri la:’, M );

   Readln

   End.

   Bình luận

2. Program BTH;
   uses crt;
   var s,i:longint;
   Begin
       clrscr;
       For i:=10 to 200 do
           If i mod 2=0 then s:=s+i;
       writeln(‘Tong day so tren la: ‘,s);
       readln;
   end.

   Bình luận