Viết chương trình tính S= 2+4+6+-100

0 bình luận về “Viết chương trình tính S= 2+4+6+-100”

1. Uses crt;

   var i,t:integer;

   begin

    clrscr;

    t:=0;

   for i:=1 to 100 do if i mod 2=0 then t:=t+i;

    write(t);

    readln;

   end.

   Bình luận

2. Program TH3;
   Uses Crt;
   Var a,b:integer;
   Begin
   Clrscr;
   a:=0;
   For b:=1 to 100 do
   If b mod 2=0 then a:=a+b;
   Writeln(‘Tong cua day so tren la: ‘,a);
   readln;
   End.

   Chạy thử Ok cả rồi nha bạn 

   KQ ra 2550 nha 

   ^-^

   Bình luận