bài 1:
program oken;
uses crt;
var n,i,le,chan:longint;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if i mod 2 =0 then chan:=chan+i
else le:=le+i;
writeln('tong chan: ',chan);
writeln('tong le: ',le);
readln;
end.
bài 2:
program oken;
uses crt;
var n,i,tong:longint;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
ton:=tong+i;
writeln('tong: ',tong);
readln;
end.