pascal编程 输入一个正整数求出它的所有事物因此每两个数之间用一个空格隔开

首先将这几个数存入数组,比如a[],cnt为计数for(i=1;i

varch:char;//第一行输入的字符r,x,y,z,a,b:longint;//r为半径,x,y,z为三角形边长,a,b为长宽p:double;//p为海伦公式里的一个量beginreadln(

#includeintmain(){inta,sum=0;scanf("%d",&a);while(a){sum+=a%10;a/=10;}printf("sum=%d\n",sum);return0

#includeintmain(){intm[10],i,j=0,k;longn;scanf("%ld",&n);k=n;while(k>0){k/=10;j++;}i=j;while(i--){m[

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

这个其实可以用多种方法实现方法1：分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前

vari,x,a：integer;beginread(x);a:=0;fori:=1toxdobeginifxmodi=0thena:=a+i;end;write(a);end.

x=""@2,10say"输入任意一个正整数"getxpicture"999999999999999"readlx=len(alltrim(x))lx=alltrim(str(lx))@4,14say

#include#includeintmain(){printf("请输入一个正整数：");intn1,n2;boolflag1=false,flag2=false;scanf("%d",&n1);n

能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.

vari,j:integer;beginj:=5;repeatfori:=1toj-1dowrite('');\x05writeln('aaaaaaa');\x05j:=j-1;untilj=0;en

审题错了吧，求所有素因子意思就像因子分解。比如18=2×3×3你找素因子用的i那个for循环吧，按你的求法，一个因子只能在式子中出现一次。下一次循环i的值就增加了嘛。你可以按照这个思路来：输入k，wh

#include <stdio.h>#include <math.h>int main(void){    

#includevoidmain(){\x09inti,n;\x09inta[10];\x09ints,p;\x09printf("n:");\x09scanf("%d",&n);\x09for(i=

编程:输入一个3位正整数,正确分离出其个位、十位、百位数...一年四季行好运八方财宝进家门家和万事兴春雨丝丝润万物红梅点点绣千山春意盎然

vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=

varn,i,j,k:integer;beginreadln(n);fori:=1tondobeginforj:=1to3dobeginwrite('':n-i+1);fork:=1toi+i-1do

主要有三个问题,一个是你的YUSHU函数应该用值参而不是用形参,就是说要把VAR去掉；还有就是你的循环体里A:=B是不对的,想一下,如果这样赋值,一进循环体,A,B就相等了,显然不对,应该定义一个中间

vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.

修改好了#include "stdio.h"#include "math.h"int prime(int n){&nbs