Sử dụng câu lệnh while do viết chương trình tính tổng B= 2+4+6+-.+2020

0 bình luận về “Sử dụng câu lệnh while do viết chương trình tính tổng B= 2+4+6+-.+2020”

1. program Tin_hoc;

   uses crt;

   var i,s:integer;

   begin

   clrscr;

   i:=0;

   s:=0;

   while i<=200 do

   begin

   s:=s+i;

   i:=i+2

   end;

   writeln(‘S=’,s);

   readln;

   end.

   Bình luận

2. program chuong_trinh_tinh_tong_B=2+4+6+…..+2020;

   uses crt;

   var a,b:integer;

   begin

   clrscr;

   a:=0;

   b:=0;

   while a<=200 do

   begin

   b:=b+a;

   a:=a+2

   end;

   writeln(‘S=’,b);

   readln;

   end

   Bình luận