Question

tổng số = 2+4+...+100 bằng lệnh while..do

Answer 1

program TinhTong;

var

     S, i: integer;

begin

     S := 0;

     i := 2;

     while i <= 100 do

     begin

          S := S + i;

          i := i + 2; 

     end;

     writeln('Tong S= ', S); 

     readln;

end.

Answer 2

program TinhTong;

var
  i, s: Integer;

begin
  i := 2; // bắt đầu từ 2
  s := 0; // khởi tạo giá trị ban đầu của tổng

  while i <= 100 do
  begin
    s := s + i; // thêm giá trị của i vào tổng
    i := i + 2; // tăng i lên 2 đơn vị để chuyển sang số chẵn tiếp theo
  end;

  writeln('Tong cac so chan tu 2 den 100 la: ', s);
end.