viết chương trình tính tích và tổng của câu sau: A)1+3+5+7+.....+2*n-1 B)2+4+6+...2*n

a) Program tong1;

uses crt;

var s,i,n: real;

begin

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

S:=0;

For i:=1 to n do

If i mod 2 =1 then s:=s+i;

writeln('Tong la:', s); readln;

end.

b)

Program tong2;

uses crt;

var s,i,n: real;

begin

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

S:=0;

For i:=1 to n do

If i mod 2 =0 then s:=s+i;

writeln('Tong la:', s); readln;

end.

uses crt;
var i,n,g,s:longint;
begin
clrscr;
write('Nhap n : '); read(n);
while n > 0 do
Begin
s:= s+2*n-1;
g:=g+2*n;
dec(n);
end;
write('A = ',s,', B = ',g);
readln;
end.