Viết chương trình

+ tính tích các số chẵn từ 2 đến N

+ tính tích các số lẻ từ 1 đến N

Với n là số nguyên được nhập từ bàn phím

*lưu ý : viết chương trình trên bằng 2 câu lệnh

+ for...do

+ While...do

*Câu lệnh for...do:

program c1;
uses crt;
var n,i,S1,S2:integer;
Begin
        clrscr;
        write('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 cac so chan = ',s1);
        write('tich cac so le = ',s2);
        readln
End.

*Câu lệnh while...do:

program c2;
uses crt;
var n,i,S1,S2:integer;
Begin
        clrscr;
        write('n = ');readln(n);
        i:=1;
        s1:=1; s2:=1;
        while i<=n do
        begin
                if i mod 2=0 then s1:=s1*i
                else s2:=s2*i;
                i:=i+1;
        end;
        writeln('tich cac so chan = ',s1);
        write('tich cac so le = ',s2);
        readln
End.

`@`FOR...DO:

Program baitap;

Uses crt;

Var i,n:integer;

      A,B:longint;

Begin

Clrscr;

Write('N='); Readln(N);

A:=1; B:=1;

For i:=1 to N do

     Begin

     If i mod 2=0 then A:=A*i;

     If i mod 2=1 then B:=B*i;

     End;

Writeln('Tich cac chan tu 2 den ',N,':',A);

Writeln('Tich cac le tu 2 den ',N,':',B);

Readln

End.

`@`WHILE...DO:

Program baitap;

Uses crt;

Var i,n:integer;

      A,B:longint;

Begin

Clrscr;

Write('N='); Readln(N);

A:=1; B:=1;i:=0;

While i<N do

     Begin

     i:=i+1;

     If i mod 2=0 then A:=A*i;

     If i mod 2=1 then B:=B*i;

     End;

Writeln('Tich cac chan tu 2 den ',N,':',A);

Writeln('Tich cac le tu 2 den ',N,':',B);

Readln

End.