# data[].attributes.body
var i,S: integer;
begin
While i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

# data[].attributes.body
var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

# data[].attributes.body
Program : Tinh_tong;
Var S,i: Integer;
Begin
For i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln ('Tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then :=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Program baitap_01
use crt;
var S,i:interger;
Begin
clrscr;
write ('Tính tổng các số chẵn từ 1-100');
for i:= 1 to 10 if i mod 2=0 then S:=S+i;
readln;
end.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

# data[].attributes.body
Thạch Minh Quân 26.
var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i:integer;

begin

for i:=1 to 100 do if i mod 2=0 then S:=S+i;

write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

# data[].attributes.headline
Var i, S: integer;BeginFor i:= 1 to 100 do if iMod 2 = 0 then S:=S+i;Writeln('Tong cac so chan :', S) ;Readln;End. 

# data[].attributes.subject
Var i, S: integer;BeginFor i:= 1 to 100 do if iMod 2 = 0 then S:=S+i;Writeln('Tong cac so chan :', S) ;Readln;End. 

# data[].attributes.body
Trần Khả thiên

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Begin
For i:= 1 to 100 do lf i mod 2 = 0
Then S:=s+i;
Writeln(`tong cac so chan  :',S);
Readln;
End

# data[].attributes.body
uses crt ;
var i, tong : integer;
begin
for to i:=1 do 100
if i mod 2-0 then tong :- tong + i;
write ('Tong cac so chan tu 1 den 100 la : ');
write(tong );
readln;
end

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
21.Nguyễn Phan Hồng Ngọc

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
while (i>1) and (i<=100) do
Begin
s:=s+i;
i=i+2;
End;
Writeln(S);
Readln;
End

# data[].attributes.headline
Thanh Lý 17  Program viet_chuong_trinh_tinh_tong;Uses Crt; Var i,s:integer; Begin Clrscr; i:=2; While (i>1) and (i<=100) do Begin s:=s+i; i:=i+2; End; Writeln(S); Readln; End.

# data[].attributes.subject
Thanh Lý 17  Program viet_chuong_trinh_tinh_tong;Uses Crt; Var i,s:integer; Begin Clrscr; i:=2; While (i>1) and (i<=100) do Begin s:=s+i; i:=i+2; End; Writeln(S); Readln; End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
Var i,S:integer;
Begin
i:=0;
While i<100 do lf i mod 2=0 then S:=S+i;
Writeln ('tong cac so chan:',S);
Readln;
End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
uses crt;
var: Tong;i: integer;
begin
i:=1;
while i<=100 do if i mod 2=0 then Tong:= Tong+i;
writeln('Tong cac so chan tu 1 den 100:',Tong);
readln;
end.

# data[].attributes.body
program tinh_tong;
uses crt;
var i, tong : integer ;
begin
begin
for i:= 1 whlie 100 do lf i mod 2=0 then S:=S+i;
writeln('tong cac so chan:',S);
Readlnl;
end.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While [i>1] and [i<=100] do
Begin
s:=s+i;
i:=i+2;
End;
Writeln[S];
Readln;
End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
var i,S:integer;
begin
i:0;
While i<=100 do if i mod 2 = 0 then S:=S+i;
Writeln (‘tong cac so chan:’S);
Readln
end

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,S:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
S:=S+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
11. Phạm Đăng Khoa
Program Tinh_tong;
Uses crt;
Var i,s: Integer;
Begin
For i:=1 to 100 do
If 1 mod 2 =0 then s:s+i;
Write (' Tong cac so chan tu 1 den 100 la: ' );
Write (S);
Readin;
End

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

# data[].attributes.body
Program Tinh_tong;
Uses crt;
Var i, S: interger;
Begin
i:=0;
While i<=100 do lf i mod 2=0 then S:=S+i;
Writeln(' tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Var i,S:integer;
begin
for i:= 1 whlie 100 do lf i mod 2=0 then S:=S+i;
writeln('tong cac so chan:',S);
Readlnl;
end.

# data[].attributes.body
var i,S: integer;
begin
While i:= 1<=100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While [i>1] and [i<=100] do
Begin
s:=s+i;
i:=i+2;
End;
Writeln[S];
Readln;
End.

# data[].attributes.body
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0
then S:=S+i
Writeln('tổng cac so chan:',s);
Readln;
end

# data[].attributes.body
var i,S: integer;
begin
While i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Hồng Nhi 22
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
Var i,S integer;
Begin
I:=0;
While(i<100)do if i mod 2=0 then
S:=S+i
I:=i+2
Writeln( tong cac so chan':S);
Readln;
End

# data[].attributes.body
29. Ngô Thanh Thuý
var i,S: integer;
begin
for i:= 1 to 100 do lf i mod 2 = 0 then S:=S+i;
Writeln('tong cac so chan :',S);
Readln;
End.

# data[].attributes.body
21. Nguyễn Phan Hồng Ngọc
uses crt ;
var i, tong : integer;
begin
while i<=100   if i mod 2=0 then tong := tong + i;
write ('Tong cac so chan tu nhien la : ');
readln;
end.