Определить функцию,позволяющую распозновать степени пятерки

[egor55555]

Даны натуральное число n и целые числа а1,а2..,аn.Найти количество чисел a1(i=1,2,....,n),я вляющихся степенями пятерки.(Определить функцию,позволяющую распозновать степени пятерки)

[Serge_Bliznykov]

функция определения, является ли число степенью пятёрки очень простая - делите число на 5, пока остаток от деления равен нулю. Если в итоге получили 1 - то это степень 5-ки, иначе - не степень 5-ки.

примерно так:

function is_five_power(n:longint):boolean;
var d : longint;
begin
   is_five_power := false;
   if n<1 then Exit;
   d:=n;
   while (d>1) and ((d mod 5)=0) do d := d div 5;
   is_five_power := (d=1);
end;

[egor55555]

а можно полностью задачу решить, а то я вообще не понимаю

[Serge_Bliznykov]

Сообщение от egor55555

а можно полностью задачу решить, а то я вообще не понимаю

конечно, можно! Решайте!


p.s. а если помощь какая нужна, то спрашивайте, что именно непонятно!

[egor55555]

я прошу написать полностью прогу и внедрить туда эту функцию, помогите пожайлуста
вот прога эта но без функции, как вставить функцию чтоб все работало

program z;
uses crt;
var i,j,k,n,f:integer; s:real;
a:array [1..10] of integer;
begin
     writeln('Введите кол-во элементов массива');
     readln(n);
     writeln('Ввод элементов массива');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     clrscr;
     writeln('Вывод элементов массива');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     f:=0;  k:=0;
     writeln('Числа, которые являются степенью пяти: ');
     for i:=1 to n do
         begin
              for j:=1 to a[i] do
                  begin
                       s:=round(exp(1/j)*ln(a[i]));
                       if s=5
                          then
                              begin
                                   f:=1;
                                   k:=k+1;
                                   write(a[i],' ');
                                   break;
                              end;
                  end;
         end;
     writeln;
     if f=0
        then
            writeln('Таких чисел в массиве нет!')
     else
         writeln('Их кол-во - ',k);
     readln;
end

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

я прошу написать полностью прогу

почему Вы не хотите написать программу самостоятельно?

для этого Вам нужно.
1) описать переменные (в том числе переменную типа массив a : array[1..xx] of Longint)
2) в основном теле программы (после главного begin) нужно ввести n и числа в массив
3) обнулить переменную, в которой будем считать количество элементов массива, являющихся степенью числа 5
4) в цикле for i:=1 to n do
проверять, если число является степенью 5-ки if is_five_power( a[i]) then
увеличивать счётчик с количеством элементов массива, являющихся степенью числа 5 ( + 1 )

5) вывести на экран сообщение и значение счётчика с количеством элементов массива, являющихся степенью числа 5

END.

что тут сложного?

[Serge_Bliznykov]

пока писал сообщение, Вы уже привели код программы...

вам нужно вместо этого

   writeln('Числа, которые являются степенью пяти: ');
     for i:=1 to n do
         begin
              for j:=1 to a[i] do
                  begin
                       s:=round(exp(1/j)*ln(a[i]));
                       if s=5
                          then
                              begin
                                   f:=1;
                                   k:=k+1;
                                   write(a[i],' ');
                                   break;
                              end;
                  end;
         end;

написать

  for i:=1 to n do
    if is_five_power(a[i]) do
       begin
          f:=1;
          k:=k+1;
          write(a[i],' ');
       end;

кстати, переменную f можно выбросить. совсем. она избыточна.
вместо неё точно так же используйте переменную k (это и есть счётчик для подсчёта количества элементов массива, являющихся степенью числа 5)
если k=0 - значит, таких чисел в массиве нет.

[egor55555]

спасибо решил)))))))))))))))))))))))))))))) )))))))))