# data[].attributes.body
program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln
end.

# data[].attributes.body
program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

# data[].attributes.body
program Tinh_tong;
uses crt;
var i,s:longint;
begin
clrscr;
s:=0;
for i:=1 to 100 do
if i mod 2<>0 then
s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,s);
readln;
end.

# data[].attributes.body
program Tinh_tong;
var N,i : Integer;
S: longint;
begin
write ('Nhap so N = '); readln (N);
S:=0;
for i := 1 to 100 do S:=S+i;
writeln ('Tong cua ',N,' cac so le tu 1 den 100 la S');
readln
end.

# data[].attributes.body
program Tinh_tong;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln
end.

# data[].attributes.body
Program Tinh_tong ;
Uses crt;
Var s,i : integer;
Begin
Clrscr;
S:=0;
For i:= 1 to 100 do
If (i mod 2=1) then S:=S+i;
Write(‘tong le la’,S);
Readln
End.

# data[].attributes.body
program Tinh_tongle;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

# data[].attributes.body
program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

# data[].attributes.body
Program tinh_tong_cac_so_le;

Var s,i :longint;

Begin

S:=0;

For i:= 1 to 100 do

If (i mod 2=1) then S:=S+i;

Write(‘tong le la’,S);

Readln

End.

# data[].attributes.body
Program Tinh_tong;
Var i,S: longint;
Begin
S:=0;
For i:=1 to 100 do if i mod 2<>0 then S=S+i;
Writeln('Tong cac so le tu 1 den 100',S);
Readln
End.

# data[].attributes.body
program Tinh_tong;

var s,i : integer;
begin

s:=0;

for i:= 1 to 100 do

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

write(‘tong le la’,S);

readln;

end.

# data[].attributes.body
Program tong_le;
Uses crt;
Var s,i : integer;
Begin
Clrscr;
S:=0;
For i:= 1 to 100 do
If (i mod 2=1) then S:=S+i;
Write('tong le la',S);
Readln
End

# data[].attributes.body
Program tinh_tong_cac_so_le;
var N,i,s:longint;
Begin
S:=0;
For i:= 1 to 100 do
If i mod 2<>0 then s:=s=+i;
Write(‘tong le la’,S);
Readln

End.

# data[].attributes.body
program tinh_tong_cac_so_le;
var N,i,s:longint;
begin
_N);
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i; writeln('Tong cac so le tu 1 dene tu
100: ,S);
readln;
end.

# data[].attributes.body
Program tinh_tong;
var N,i,s:longint;
Begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

# data[].attributes.body
program oken;
uses crt;
var i,sum:longint;
begin
clrscr;
sum:=0;
for i:=1 to 100 do
if i mod 2<>0 then
sum:=sum+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,sum);
readln;
end.

# data[].attributes.body
program Tinh_tong;
uses crt;
var S,i,N: longint;
begin
S:=0;
for i:= 1 to 100 do
if (i mod 2=1) then S:=S+i;
writeln(‘Tong cac so le tu 1 den 100: ',S);
readln
end.

# data[].attributes.body
program tinh_tong_cac_so_le;
var N,i,S: Longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln('Tong cac so le tu 1 den 100: 'S);
readln;
end.

# data[].attributes.body
program tinh_tong
uses crt;
var i,sum:longint;
begin
clrscr;
sum:=0;
for i:=1 to 100 do
if i mod 2<>0 then
sum:=sum+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,sum);
readln;
end.

# data[].attributes.body
program tinh_tong_so_le;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln;
end.

# data[].attributes.body
program Tinh_tong;
var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod 2<>0 then s:=s+i;
writeln(‘Tong cac so le tu 1 den 100: ‘,S);
readln
end.

# data[].attributes.headline
30. Ông quan phú thịnh.Program tong_va_le;

# data[].attributes.subject
30. Ông quan phú thịnh.Program tong_va_le;

# data[].attributes.body
Uses crt;
Var s,i :interger;
Begin
Clrscr;
S:=0;
For i:= 1 to 100 do
If (i mod 2=1) then S:=S+i;
Write('tong le la',S);
Readln
End.

# data[].attributes.body
program Tinh_tong_cac_so_le;
var N, i , S : longint;
begin
S=:0;
for i :=1 to 100 do
if i mod 2<>0 then S:=S+i;
writeln('tong các so le tu 1 den 100's);
readln
end.

# data[].attributes.body
Program oken;
Var i, sun:longint;
Begin
Sum:=0;
For i:=1 to 100 do
if i mod 2 <> 0 then
Sum:=sum+i;
Writeln(‘Tong cac so le tu 1 den 100:’ ,sum);
Readln;
End.

# data[].attributes.body
chương trình tinhtong_N; {tinh tong so chan N bang while .. do}
using crt;
var i: số nguyên;
S: longint;
const n = 100
begin
clrscr;
Đ / s: = 0;
i: = 0;
while i <n do
begin
i:=i + 1;
if i mod 2 = 0 then S: = S + i;
writeln ('tong cac so chan tu 1 -> 100' là = ', S);
readln;
chấm dứt

# 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: 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 S,i :Integer;
begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so chan tu 1 den 100 :',S);
readln;
end.

# data[].attributes.body
Program Tinh Tong;
Var N,i,s:longint;
begin
S:=0;
for i:=1 to 100 do
if i mod  2<>0 then S:=s+i;
Writeln('Tong so le tu 1 den 100);
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
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_cac_so_chan;
Var i,S: integer;
begin
i:=0;
while (i>1) and (i<=100)
begin
s:=s+i;
i:=i+2;
writeln ('tong các so chan',S);
readln;
End.

# data[].attributes.body
pogram tinh_tong_cac_so_le;
var N,i,S:longint;
begin
S:=0;
for i:=1 to 100 do;
if mod 2<>0 then S:=S+i;
writeln(‘Tong cac so le tu 1 den 100:’,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
S:=S+i;
Writeln(‘tong cac so Chan’,S);
Readln;
End.

# data[].attributes.body
Var i,S: integer;
Begin
Writeln('Chuong trinh tinh tong cac so chan tu 1 den 100')
i:=0; S:=0;
While i<=100 do
begin
if i mod 2=0 then S:=S+i;
i:=i+1;
end;
Write('Tong cac so chan tu 1 den 100',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
Thanh Bằnggggggg2
Program tinhtong_N;(tinh tong so chan N bang while do)
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 tu 1 den 100 :',S);
Readln;
End.

# data[].attributes.body
program Tinh_tong_cac_so_chan
var S,i :Integer;
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 :',S);
readln;
end.

# data[].attributes.body
Program Tinh_tong_cac_so_chan;
uses crt;
Var i,S: integer
begin
Clrscr;
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 tinh_tong_cac_so_chan;
Uses ctr;
Var i,S: integer;
Begin
Clrscr;
i:=0;
While I <= 100 do
Writeln('tong_cac_so_chan',S);
Readln;
End.

# data[].attributes.body
program Tinh_tong_cac_so_chan;
Var i,S: integer;
begin
i:=0;
while (i>1) and (i<=100)
begin
s:=s+i;
i:=i+2;
writeln ('tong các so chan',S);
readln;
End.

# data[].attributes.body
program tinh_tong_cac_so_chan;
uses ctr;
var i,S: integer
begin
clrscr;
i:=0;
while i<100 do if i mod 2=0 then S:=S+1
writeln('tong cac so chan',S);
readln;
end.

# data[].attributes.body
Sử Nghi Lân 12
program Tinh_tong_cac_so_chan
var S,i :Integer;
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 :',S);
readln;
end.

# data[].attributes.body
Program viet_chuong_trinh_tinh_tong;
Var i: integer;
s: integer
Begin
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 S,n: integer;
begin
S:=0; n:=0;
while S<=100 do
begin
n:=n+1; S:= S+n;
end
write('Ket qua la:',S);
readln;
End.

# data[].attributes.body
program tinh_tong_cac_so_chan;
uses ctr;
var i,S: integer
begin
clrscr;
i:=0;
while i<100 do if i mod 2=0 then S:=S+1
writeln('tong cac so chan',S);
readln;
end.

# data[].attributes.body
rogram 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_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
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.