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

#include <iostream>
#include <windows.h>
#include <fstream>
#include <cmath> 
 
using namespace std;
 
bool IsSquare(int K);
 
int main()
{
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);
   
   int n = 1;
   int num = 0;
   int K;
   int q;
   ifstream in ("Proc25.txt");
   
   cout << "Набор чисел: ";    while (in >> K) {
      cout << K << " ";       if (K>0) {
         q = IsSquare(K);
   	     num += q;
   	     ++n;
      }
   }
   cout << endl;
   cout << "Количество квадратов натуральных чисел в наборе = " << num << endl;
   system ("pause");
   return 0;
}
 
bool IsSquare(int K)
{
   for(int i=1; i*i<=K; ++i) {
      if (i*i==K) return true;
   }
}

import random
import math

def IsSquare(K):
    x = int(math.sqrt(K))
    if K == x*x:
        return True
    return False

s = 0
for i in range(0,10):
    x = random.randrange(1,101)
    print(x,end="; ")
    s += int(IsSquare(x))

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

program Proc25;
 
Function IsSquare(K:Integer):Boolean;
begin
  if k = Sqr(round(Sqrt(k)))  then IsSquare:=True
  else IsSquare:=False;
end;
 
 
var
  i,N,Res:Integer;
 
begin
 Res:=0;
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
 
   if IsSquare(N) then Inc(Res);
  end;
  Writeln(Res);
end.