Задача на С++

[alderina_desk]

Нужно найти все треугольники Герона, чтобы все стороны, полупериметр и площадь были натуральными числами. Подскажите почему программа не выдает никаких результатов, где ошибка в коде?

#include "stdafx.h"
#include <iostream>
#include <cmath>
#include <iomanip> 



using namespace System;
using namespace std;

bool NumIsNatural(float p)
{
if ( (float)( (int) p ) == p && p!=0)
return 1;
return 0;
}

int main ()
{
setlocale(LC_ALL, "Russian");
float a, b, c, n, kol, s, p, str;
kol=0;
s=1;
cout<<"Введите количество треугольников Герона:"<<endl;
cin>>n;
if(n>0)
{
 while(kol<n)
 {
	  for ( a=1; a<=s; a++) {
	   
		  for ( b=a; b<=s; b++) {
		
			  for ( c=b; c<=s; c++) {
		 
				  if ( a+b>c && a+c>b && b+c>a) {
		 
					  p=(a+b+c)/2;
		   
					  if(NumIsNatural(p)==true){
			
						  str=sqrt(p*(p-a)*(p-b)*(p-c));
			 
						  if(NumIsNatural(str)==true && str==s) {
			  
							  cout<<a<<"--"<<b<<"--"<<c<<"-----"<<p<<"--"<<s<<endl;
			   
							  s++;
				
							  kol++;
						  }
					  }
				  }
			  }
		  }
	  }
 }
}

						  

				    

else {
cout<<"Такого нет!"<<endl;
}

system("pause");
}

[сфинкс]

используя программу выше на qb64 qbasic работает и гораздо короче

For a = 1 To 10 ' geron.bas
    For b = a To 10
        For c = b To 10
If a+b > c Then If a+c > b Then If b+c > a Then p = (a+b+c)/2: str = Sqr(p*(p-a)*(p-b)*(p-c))
If p = Int(p) Then If str = Int(str) Then Print a; " "; b; " "; c, , p, str
Next: Next: Next
End

Ответ например 6 8 10 12 24