Question

Viết chương trình nhập N. Tính tích các ước số lẽ của N.

Giúp em gấp với ạ. Em cảm ơn

 

Answer 1

program baitap1;

uses crt;

Var Tich: Word;

      n , i : Bytbe;

begin

    clrscr;

    Write( ' Nhap N: ' ); Readln(n);

    Tich:=1;

    For i:=1 to n do

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

    Writeln( ' Tich so le; ' ,Tich);

    readln;

end.