C Упражнения: Проверьте, является ли число Кит или нет

Числа C: Упражнение 36 с решением

Напишите программу на C, чтобы проверить, является ли число Китом или нет.

Тестовые данные
Введите число: 1104

Пример решения :

Код C:

# include <stdio.h>
# include <stdlib.h>
int lenCount(int nm)
{  int ctr=0;
    while(nm>0)
    {
        nm=nm/10;
        ctr++;
     }
     return ctr; 
}
int main()
{
    int num1=0,arr1[10],num2=0,flg=0,i=0,sum=0;
	printf("\n\n Check whether a number is Keith or not: \n");
	printf(" Sample Keith numbers: 197, 742, 1104, 1537, 2208, 2580, 3684, 4788, 7385..\n");
	printf(" --------------------------------------------------------------------------\n");	
	printf(" Input a number : ");
    scanf("%d",&num1);
    num2=num1;
    for(i=lenCount(num2)-1;i>=0;i--)
    {
        arr1[i]=num1 % 10;
        num1/=10;
    }
    while(flg==0)
    {
        for(i=0;i<lenCount(num2);i++)
            sum+=arr1[i];
        if(sum==num2)
        {
            printf(" The given number is a Keith Number.\n");
            flg=1;
        }
        if(sum>num2)
        {
            printf(" The given number is not a Keith number.\n");
            flg=1;
        }
        for(i=0;i<lenCount(num2);i++)
        {
            if(i!=lenCount(num2)-1)
                arr1[i]=arr1[i+1];
            else
                arr1[i]=sum;
        }
        sum=0;
    }
}

Пример вывода:

 Введите число: 1104                                                                                        
 Данный номер является номером Кита.

Блок - схема:

Редактор кода программирования C:

Внесите свой код и комментарии через Disqus.

Previous: написать программу на C для печати первых 20 чисел серии Pell.
Далее: Напишите программу на C, чтобы проверить, является ли число Китом или нет (с объяснением).