Функции с числовыми параметрами

[Hostlman]

Уважаемые программисты, не могли бы помочь решением задачи?

Функции с числовыми параметрами.

Описать функцию IsPower5(K) логического типа, возвращающую True, если целый параметр K (> 0) является степенью числа 5, и False в противном случае. С ее помощью найти количество степеней числа 5 в наборе из 10 целых положительных чисел

Заранее премного благодарен.Просто зачет по программированию 24.12.

[kommunist]

Что именно у тебя не получается, есть нароботки?

[Hostlman]

Если честно-нет. Зачеты идут, прог много сделать нужно, на все время не хватает.

[theos]

#include <stdio.h>
#include <conio.h>


bool IsPower5(long k)
{
	if(k == 1) return false;
	while((k % 10) == 5) k /= 5;
	if(k == 1) return true;
	return false;
}


int main()
{
	long m[10];
	int i;
	printf("Enter 10 integer values:");
	for(i = 0;i < 10;i++) scanf("%ld",&m[i]);
	printf("\nPowers of 5 is: ");
	for(i = 0;i < 10;i++)
		if(IsPower5(m[i])) printf("%ld ",m[i]);
	printf("\npress any key to exit...\n");
	getch();
	return(0);
}

[Hostlman]

Извините, забыл сказать: я работаю в паскале, и наработак пока нет,времени нет. Решаю пока задачки на массивы.

[puporev]

Держи на Паскале.

program Func5;
uses crt;
var K:longint;i:integer;
function IsPover(K:longint):boolean;
var a:longint;
begin
a:=1;
repeat
a:=a*5;
until a>=K;
if a=K then IsPover:=true
else IsPover:=false;
end;
begin
clrscr;
write('K=');readln(K);
write(IsPover(K));
readln;
end.