viết chương trình tính tổng các sô chẵn từ 1-1000 sử dụng vòng lặp xác định và vòng lawpk k xác định

- chương trình sử dụng số vòng lặp chưa xác định

program ct;

uses crt;

var i,S:integer;

begin

clrscr;

  S:=0; i:=0;

     while i<1000 do

  begin

     S:=S+i;

     i:=i+2;

  end;

  writeln('tong cac so chan la:',S);

readln

end.

Chương trình sử dụng vòng lặp xác định:

program ct;

uses crt;

var S,i:integer;

begin

clrscr;

  S:=0;

    for i:=1 to 1000 do

        if (i mod 2=0) then S:=S+i;

    writeln('tong cac so chan la:',S);

readln

end.

Vòng lặp xác định:

program ct;

uses crt;

var i:integer;

      S:longint;

begin clrscr;

     S:=0;

   for i:=1 to 1000 do

     if i mod 2=0 then S:=S+i;

   write('Tong cac so chan tu 1 den 1000 la: ',S);

readln;

end.

Vòng lặp không xác định:

program ct;

uses crt;

var i:integer;

      S:longint;

begin clrscr;

     S:=0; i:=0;

   while 1<=1000 do

     begin

        S:=S+i; i:=i+1;

     end;

   write('Tong cac so chan tu 1 den 1000 la: ',S);

readln;

end.

Học tốt!