Bài 1 :
uses crt;
var i, n, s1, s2 : integer;
begin
clrscr;
write('Nhap n : '); readln(n);
s1 := 0; s2 := 0;
for i := 1 to n do
if i mod 2 <> 0 then s1 := s1 + i
else s2 := s2 + i;
writeln('Tong so le : ', s1);
writeln('Tong so chan : ', s2);
readln
end.
Bài 2 :
uses crt;
var i, n, s1, s2 : integer;
begin
clrscr;
write('Nhap n : '); readln(n);
s1 := 1; s2 := 1;
for i := 1 to n do
if i mod 2 <> 0 then s1 := s1 * i
else s2 := s2 * i;
writeln('Tich so le : ', s1);
writeln('Tich so chan : ', s2);
readln
end.