Решение задачи Proc 26

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
bool IsPower5(int K);
 
int main()
{
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);
   
   int answer = 0;
   int K;
   ifstream in ("Proc26.txt");
   
   cout << "Набор чисел: ";    while (in >> K) {
      cout << K << " ";       if (K>0) {
        if (IsPower5(K)) ++answer;
      }
   }
   cout << endl;
   cout << "Количество степеней числа 5 в наборе = " << answer << endl;
   in.close();
   system ("pause");
   return 0;
}
 
bool IsPower5 (int K)
{
   int i = 1;
   while (i<K) {
     i*=5;
   }
   return i == K;     
}

import random
import math

def IsPower5(K):
    x = int(math.log(K,5))
    if K == 5**x:
        return True
    return False

s = 0
L = [5**random.randrange(1,10)+random.randrange(0,2) for i in range(0,10)]
for i in range(0,len(L)):
    x = L[i]
    print(x,end="; ")
    s += int(IsPower5(x))

print("\nAmount of IsPower5:",s)
									

program Proc26;
 
Function IsPower5(K:Integer):Boolean;
begin
 While (K>=5) do
  begin
   if ((k mod 5)<>0) and (k<>1) then
    begin
     K:=0;
     IsPower5:=False;
    end;
   K:=k div 5;
  end;
 if K=1 then IsPower5:=True
 else IsPower5:=False;
end;
 
var
 i,N,Res:Integer;
 
begin
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
   if IsPower5(N) then Inc(Res);
  end;
 Writeln(Res);
end.