1. Áp dụng thuật toán để tính tổng N số lẻ 2. Áp dụng thuật toán để tính tích N số chẵn Giúp em với mọi người ơi !!!

Vt chg trình(gộp 2 câu trên vs nhau)

uses crt;

var i,n,P,S:integer;

begin

clrscr;

write('nhap n: ');readln(n);

P:=0;

S:=1;

for i:=1 to n do if (i mod 2)=1 then P:=P+i; else S:=S*i;

writeln(' Tong n so le la: ',P);

writeln(' Tich n so chan la: ',S);

readln;

end.

program tinhtong;

uses crt;

var n,a,c,d:integer;

begin

clrscr;

c:=0;d:=0;

write('nhap n: ');readln(n);

for a:=0 to n do

if a mod 2 =0 then

c:=c+a;

for a:=0 to n do

if a mod 2 =1 then

d:=d+a;

writeln('tong cua cac so chan la: ',c);

writeln('tong cua cac so le la: ',d);

readln;

end.

Chúc bạn học tốt nha.