Комментарии 11

• Точно не реагирует на 1(нулевую степень любого числа), скорее недостатки как и в предыдущей задаче(использован тот же метод).

  [crayon-673c4bdc4cffd236732330 inline="true" ] function IsPowerN(k,n:integer):boolean; var PowerN:integer; begin PowerN:=1;//нулевая степень числа N while PowerN<=k do//перебор и сравнение степеней N не выше числа K begin result:=(PowerN=k); PowerN:=PowerN*n;//очередная степень числа N end; end; var i,k,n,n1:integer; begin n1:=0; read(n); for i:=1 to 10 do begin read(k); if IsPowerN(k,n) then inc(n1); end; write(n1); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

  [crayon-673c4bdc4cffd236732330 inline="true" ]     function IsPowerN(k,n:integer):boolean; var   PowerN:integer;   begin   PowerN:=1;//нулевая степень числа N    while PowerN<=k do//перебор и сравнение степеней N не выше числа K      begin       result:=(PowerN=k);       PowerN:=PowerN*n;//очередная степень числа N      end;     end;   var i,k,n,n1:integer;   begin     n1:=0;   read(n);   for i:=1 to 10 do     begin      read(k);      if IsPowerN(k,n) then inc(n1);     end;   write(n1); end.

  [/crayon]

  Ответить

  • строку 9 удалить, строку 12 заменить на
    result:=(PowerN=k);

    Ответить

    • Поправил. Добавил в шапку.

      Ответить

• В задании сказано, что K (>0) и N(>1) то есть прямо сказано, что нулевую степень числа не рассматриваем.

  Ответить

  • Всё равно не выдержал, и поправил:
    Поправил
    Было:

    Function IsPowerN(K,N:Integer):Boolean; begin if K>N-1 then IsPowerN:=True else IsPowerN:=False; While (K>N) do begin if ((k mod N)<>0) and (k<>1) then begin K:=0; IsPowerN:=False; end; K:=K div N; end; end;

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

    Function IsPowerN(K,N:Integer):Boolean; begin   if K>N-1 then IsPowerN:=True   else IsPowerN:=False;     While (K>N) do    begin     if ((k mod N)<>0) and (k<>1) then     begin       K:=0;       IsPowerN:=False;     end;     K:=K div N;    end; end;

    Стало:

    Function IsPowerN(K,N:Integer):Boolean; begin While (K>=N) do begin if ((k mod N)<>0) and (k<>1) then begin K:=0; IsPowerN:=False; end; K:=K div N; end; if K=1 then IsPowerN:=True else IsPowerN:=False; end;

    1 2 3 4 5 6 7 8 9 10 11 12 13 14

    Function IsPowerN(K,N:Integer):Boolean; begin   While (K>=N) do    begin     if ((k mod N)<>0) and (k<>1) then     begin       K:=0;       IsPowerN:=False;     end;     K:=K div N;    end;   if K=1 then IsPowerN:=True   else IsPowerN:=False; end;

    Ответить

  • K=1 и есть N в степени ноль

    Ответить

    • а да … попутал N и К

      Ответить

• var N,X,K,t,i:Integer; Function IsPowerN(X:integer):boolean; begin writeln('Ввод K'); read(K); N:=X; while K>X do X:=X*N; if K=X then IsPowerN:=True else IsPowerN:=False; end; begin writeln('Ввод N'); read(N); for i:=1 to 4 do begin if IsPowerN(N) then Inc(t); end; writeln(t); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

  var    N,X,K,t,i:Integer;   Function IsPowerN(X:integer):boolean; begin    writeln('Ввод K');    read(K);    N:=X;    while K>X do X:=X*N;    if K=X then IsPowerN:=True    else IsPowerN:=False; end;   begin    writeln('Ввод N');    read(N);    for i:=1 to 4 do      begin        if IsPowerN(N) then Inc(t);      end;    writeln(t); end.

  Ответить

  • ..только i:=1 to 10, а не до 4

    Ответить

  • Считает правильно, но в задание просят созадать функцию IsPowerN(K, N) , а у вас IsPowerN(N), что не может не печалить. 🙁

    Ответить

• Для любых целых чисел K и N:

  function isPowerN(k,n:integer):boolean; begin case n of 0:result:=(k=0); 1:result:=(k=1); -1:result:=((k=1)or(k=-1)); else begin while (k mod n = 0) and (k<>0) do k:= k div n; result:=(k=1); end; end; end; begin var count:=0; var n:=ReadlnInteger('введите любое целое число: n ='); var a:=ReadArrInteger('введите набор из 10-и любых целых чисел:',10); print('степеней числа ',n,' в наборе:',a.Where(t->isPowerN(t,n)).Count); readln;readln; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

  function isPowerN(k,n:integer):boolean; begin   case n of     0:result:=(k=0);     1:result:=(k=1);     -1:result:=((k=1)or(k=-1));     else     begin       while (k mod n = 0) and (k<>0) do         k:= k div n;       result:=(k=1);     end;   end; end;   begin   var count:=0;   var n:=ReadlnInteger('введите любое целое число: n =');   var a:=ReadArrInteger('введите набор из 10-и любых целых чисел:',10);   print('степеней числа ',n,' в наборе:',a.Where(t->isPowerN(t,n)).Count);   readln;readln; end.

  Ответить