# data[].attributes.attachment_link.readable_text
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_cac_so_chan;
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
29. Triệu Quốc Thuận

# data[].attributes.body
Var i:integer;
tong: integer;
Begin
tong:=0; i:=2;
While i<100 do
Begin
tong:=tong+i;
i:=i+2;
end;
writeln('tong cac so chan tu 1 - 100 la',tong);
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.body
34

# data[].attributes.body
program bai_tap;
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 BT1;
Var i:integer;
tong: integer;
Begin
tong:=0; i:=2;
While i<100 do
Begin
tong:=tong+i;
i:=i+2;
end;
writeln('tổng các số chẳn từ 1 - 100 la',tong);
readln;
end.

# data[].attributes.body
32 Quách Hớn Tường

# data[].attributes.body
Program baitap;
Uses crt;
Var i,n:integer;
Begin
i:=2;
While i<=100 do
Begin
n:=n+i; i:=i+2;
End;
Writeln (' Tong cac so chan tu 1-100 la ',n);
End.

# data[].attributes.body
Program Bai_tap_1;
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:integer;
Tong: integer
Begin
Tong:=0; i:=2;
While i<100 do
Begin
Tong:=tong+i;
i:=i+2;
end;
writeln('tong cac so chan tu 1 - 100 la',tong);
readln;
end.

# data[].attributes.body
Var i:integer;
Tong: integer
Begin
Tong:=0; i:=2;
While i<100 do
Begin
Tong:=tong+i;
i:=i+2;
end;
writeln('tổng các số chẳn từ 1 - 100 la',tong);
readln;
end.

# data[].attributes.body
program BT;
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 BT1;
uses crt;
Var i:integer;
tong: integer;
Begin
tong:=0; i:=2;
While i<100 do
Begin
tong:=tong+i;
i:=i+2;
end;
writeln('tong cac so chan tu 1 - 100 la',tong);
readln;
end.

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

# data[].attributes.body
var i : integer
tong : longint;
begin
clrscr;
i:=2;
white i<=100 do
if i mod 2 =0 then
begin
tong:= tong +i;
i:= i+2;
end;
writeln(tong);
readln;
end.

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

# data[].attributes.attachment_link.readable_text
Uses crt;
var t,s:real;
    i,n:integer;
begin
clrscr;
n:=1;
t:=0;
while t < 1 do
	begin
	s:=1/(2+n);
	t:=t+s;
	n:=n+1;
	end;
writeln(n-1);
readln
end.

# data[].attributes.body
Viết chương trình tính giá trị N của phân số......

# data[].attributes.body
VCT tính giá trị N....

# data[].attributes.body
Uses crt;
var t,s:real;
i,n:integer;
begin
clrscr;
n:=1;
t:=0;
while t < 1 do
begin
s:=1/(2+n);
t:=t+s;
n:=n+1;
end;
writeln(n-1);
readln
end.

# data[].attributes.body
Uses crt;
var t,s:real;
i,n:integer;
begin
clrscr;
n:=1;
t:=0;
while t < 1 do
begin
s:=1/(2+n);
t:=t+s;
n:=n+1;
end;
writeln(n-1);
readln
end.

# data[].attributes.body
uses crt;
var i,n:integer;
m,s:real;
begin
clrscr;
n:=1;
m:=0;
while m<1 do
begin
s:=1/(2+n)
m:=m+s;
n:=n+1;
end;
writeln(n-1);
readln;
end.

# data[].attributes.body
var a,S : real;
i,N: integer;
begin
N:=1; a:=0;
While a<1 do
begin S:=1/(2+N);
a:=a+S;
N:=N+1;
end;
writeln('Gia tri N la', N);
readln;
end.

# data[].attributes.body
program BT2;
Var i:integer;
Tong: integer
Begin
Tong:=0; i:=2;
While i<100 do
Begin
Tong:=tong+i;
i:=i+2;
end;
writeln('Tong cac so chan tu 1 - 100 la',tong);
readln;
end.

# data[].attributes.body
uses crt;
var i,n:integer;
m,s:real;
begin
clrscr;
n:=1;
m:=0;
while m<1 do
begin
s:=1/(2+n)
m:=m+s;
n:=n+1;
end;
writeln(n-1);
readln;
end.

# data[].attributes.body
var a,S: real;
i,N: interger;
begin
N:=1; a:=0;
While a<1 do
begin S:=1/(2+N);
a:= a + S;
N:= N+1;
end.
Writeln('Gia tri N la',N);
readln;
end.