Viết chương trình tính tổng sau : S= 2+4+6+…+100 ( bằng 2 cách khác nhau )

0 bình luận về “Viết chương trình tính tổng sau : S= 2+4+6+…+100 ( bằng 2 cách khác nhau )”

1. đây: nhé

   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.

   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.

   Kết quả ra 2550

   C2.ko bt

   Bình luận