pascal求任意输入三个自然数的最大公约数

programex1;varn,a,b,i,j,gongyueshu,gongbeishu:longint;beginreadln(a,b);if(a1和

var  a:array[1..5] of longint;  i:longint;function gcd(a,b:longin

programyueshuhe;varn,i,s:longint;beginwriteln('inputn:');readln(n);s:=1;fori:=2tondobeginifnmodi=0th

只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了

公约数公倍数vara,b,i,p,n,m:longint;beginread(a,b);ifa>bthenp:=aelsep:=b;whilei

#includevoidmain(){inta,b,c;intsum,max,min;doubleaverage;printf("请分别输入a,b,c三个整数的值(逗号隔开）：");scanf("%d

varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!

#include“stdio.h"voidmain(){\x09inta,b,c,sum;\x09floatave;scanf("%d%d%d",&a,&b,&c);sum=a+b+c;\x09ave

if(a

用字符数组存储这N个数再用ASCII码将字符类型的数字转换成整数数字再加起来即可；vara:array[1..10000]ofchar;i,s,n:longint;beginfori:=1to4dor

varm,n,a,b,r:integer;beginreadln(a,b);m:=a;n:=b;r:=mmodn;whiler0dobeginm:=n;n:=r;r:=mmodn;end;writel

varn:longint;beginreadln(n);writeln(abs(n));{绝对值}writeln(sqr(n));{平方}writeln(sqrt(n));{平方根}writeln(p

functiongcd(a,b:longint):longint;varmid:longint;beginwhileb0dobeginmid:=b;b:=amodb;a:=mid;end;exit(a

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

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

programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm再问：拜托，错了再答：programex1;varj,m,n,m1,n1,a,b:i

数字操作：varn,s:integer;beginreadln(n);s:=0;whilen>0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.字符串操

vara,b,c,n:integer;beginreadln(n);a:=ndiv100;b:=nmod100div10;c:=nmod10;writeln(a,'+',b,'+',c,'=',n);

#includevoidmain(){inti1,i2,i3,sum,avg;scanf("%d",&i1);scanf("%d",&i2);scanf("%d",&i3);sum=i1+i2+i3;

intnum1,num2,num3;floataverage;printf("pleasenum1,num2,num3:\n");scanf("%d,%d,%d",&num1,&num2,&num3)