Viết chương trình cho máy tính: a) Tính tổng S = 1/1+1/3+1/5+1/7+ ..”1/19+1/21 b) TÍnh tích: Q =3*5*7*9*11*..*15

uses crt;
var i:byte;
    s:real;
    q:longint;
BEGIN
        clrscr;
        s:=1;     i:=3;
        while i<=21 do
        begin
                s:=s+1/i;
                inc(i,2);
        end;
        q:=3; i:=5;
        while i<=15 do
        begin
                q:=q*i;
                inc(i,2);
        end;
        writeln(‘S=’,s:0:3);
        writeln(‘Q=’,q);
        readln
END.

Mình gộp cả 2 câu lun đó. (cực kì dễ hỉu)