c1 :viết chương trình tính tổng các số chẵn từ 1 đến 1000 sử dụng vòng lặp xác định c2:viết chương trình tính tổng các số chẵn từ 1 đến 1000 sử dụng vòng không lặp xác định

`C1`

Program Hotboy;

Uses crt;

Var S,i: Longint;

Begin

S:= 0;

For i:=1 to 1000 do

S:=S+i;

Write('tong la',S);

Readln

End.

`C2`

Program Hotboy;

Uses crt;

Var S,i: Longint;

Begin

S:= 0;

i:=1

While i<=1000 do

Begin

S:=S+i;

End;

Write('tong la',S);

Readln

End.

Câu 1:

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.

Câu 2:

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.