pascal求任意输入三个自然数的最大公约数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/01 17:40:31
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
用字符数组存储这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)