Viết chương trình tính tổng S= 2+4+6+8+…+100 (sử dụng lệnh for do)

0 bình luận về “Viết chương trình tính tổng S= 2+4+6+8+…+100 (sử dụng lệnh for do)”

1. program Min;
   uses crt;
   var S,i:integer;
   begin
      clrscr;
      S:=0;
      for i:=1 to 100 do S:=S+2*i;
      writeln(‘S: ‘,S);
      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.

   Mình chạy rồi nha bạn

   Ok hết

   Kết quả ra 2550

   Bình luận