小于5000的自然数中能被11整除的数，且这些能被11整除的数x的和为13的数有几个，用C语言编程

Answer 1

用 perl 写了一个,修改下就可以了:
for ($a=1;$a<5001;$a++){

$d=$a%11;
$x1=substr($a,0,1);
$x2=substr($a,1,1);
$x3=substr($a,2,1);
$x4=substr($a,3,1);
$x=$x1+$x2+$x3+$x4;
if (($d==0)&&($x==13)){
$i++;
print "第$i个数 $a \n<br>";

}
}

运行结果:
第1个数 319
第2个数 418
第3个数 517
第4个数 616
第5个数 715
第6个数 814
第7个数 913
第8个数 1309
第9个数 1408
第10个数 1507
第11个数 1606
第12个数 1705
第13个数 1804
第14个数 1903
第15个数 3091
第16个数 3190
第17个数 4081
第18个数 4180

======================
如果是商的各位数和为13.则:
for ($a=1;$a<5001;$a++){

$d=$a%11;

if ($d==0){
$x=$a/11;

$x1=substr($x,0,1);
$x2=substr($x,1,1);
$x3=substr($x,2,1);
$x4=substr($x,3,1);
$xx=$x1+$x2+$x3+$x4;
if($xx==13){
$j++;
print "第$j个数 $a 商是 $x \n<br>";
}
}
}
运行结果:
第1个数 539 商是 49
第2个数 638 商是 58
第3个数 737 商是 67
第4个数 836 商是 76
第5个数 935 商是 85
第6个数 1034 商是 94
第7个数 1529 商是 139
第8个数 1628 商是 148
第9个数 1727 商是 157
第10个数 1826 商是 166
第11个数 1925 商是 175
第12个数 2024 商是 184
第13个数 2123 商是 193
第14个数 2519 商是 229
第15个数 2618 商是 238
第16个数 2717 商是 247
第17个数 2816 商是 256
第18个数 2915 商是 265
第19个数 3014 商是 274
第20个数 3113 商是 283
第21个数 3212 商是 292
第22个数 3509 商是 319
第23个数 3608 商是 328
第24个数 3707 商是 337
第25个数 3806 商是 346
第26个数 3905 商是 355
第27个数 4004 商是 364
第28个数 4103 商是 373
第29个数 4202 商是 382
第30个数 4301 商是 391
第31个数 4499 商是 409
第32个数 4598 商是 418
第33个数 4697 商是 427
第34个数 4796 商是 436
第35个数 4895 商是 445
第36个数 4994 商是 454

Answer 2

这个是纯C的，已经经过测试了。

#include <stdio.h>
#include <stdlib.h>
long f(long int x);
int wei(long int y);
int main()
{
int j=0;
long i,results[455]; //5000/11+1
for (i=11;i<5000;i++)
{
if (i%11==0)
{
results[j]=i;
j++;
}
}
for (j=0;j<455;j++)
{
if (f(results[j]/11)==13)
printf("5000以内能被11整除，且商的位数和为13的这些数是：%ld ,它的商是： %ld \n",results[j], results[j]/11);
}
//printf("Hello world!\n");
return 0;
}

long f(long int x)
{
//int a[100];
int i;
long tmp=0,wei_sum=0;
for(i=1;;i++)
{
//a[i]=x%10;
tmp=wei(x);
wei_sum=wei_sum+tmp;
x=x/10;
if(x==0)break;
}
//return i;
return wei_sum;
}
int wei(long int y)
{
int i;
i=y-y/10*10;
return i;
}

若满意请采纳。

Answer 3

x的和是什么意思？

追问

x是我设定的，，x就是商