Question

ajutoooooooooooooooooooooor in pascal
1.Cum verifici daca un numar este putere a lui 2 pascal
2.sa se calculeze ' (2 n)!' pentru n dat
3. Se dau numerele naturale m şi n, unde m < n. Să se calculeze produsul numerelor mai mici decît n, divizibile cu m.

Answer 1

Răspuns:

1)

uses crt;

var n, initial:integer;

begin

    write('n = ');

    readln(n);

    initial := 2;

    while (initial<n) do

      initial:=initial*2;

    if(initial=n) then

      writeln('n este putere a lui 2')

    else

      writeln('n nu este putere a lui 2');

    readln;

end.

2)

uses crt;

var

 n, factorial, i:integer;

begin

 write('n = ');

 readln(n);

 factorial := 1;

 for i:=1 to 2*n do

   factorial:=factorial*i;

 writeln('2n factorial = ',factorial);

 readln;

end.

3)

uses crt;

var m,n,i,produs:integer;

begin

 write('m = ');

 readln(m);

 write('n = ');

 readln(n);

 produs:=1;

 for i:=m+1 to n do

   if(i mod m = 0) then

     produs:=produs*i;

 writeln('Produsul este ',produs);

 readln;

end.

Explicație: