简单Pascal一道题vara,b:integer;function work(a,b:integer):integer;beginif a mod b 0 thenwork := work(b,a mod b)elsework := b;end;beginread(a,b);writeln(work(a,b));end.请问 work := work(b,a mod

简单Pascal一道题vara,b:integer;function work(a,b:integer):integer;beginif a mod b 0 thenwork := work(b,a mod b)elsework := b;end;beginread(a,b);writeln(work(a,b));end.请问 work := work(b,a mod 这是pascal里编的vara,b,c:integer;beginread(a,b);c:=a+b;readln;read(c);writeln(c);end; pascal过程的题 题目是这样的,输入30个数,当做十个三角形的三边,求这10个三角形的面积.完成了有追加嗯,我自己写了一个program area;vara,b,c,s:real;i:integer;procedure ts(a0,b0,c0:real);var p,s0:real;beginp:=(a0+ Pascal 求长方体的体积,长、宽、高的值由键盘输入我输入了：vara,b,c,l:integer;beginread(a,b,c);l:=a*b*c;write(l);end.为什么没有用 （显示了出错信息） pascal从键盘上输入一个三角形的三条边长,计算出三角形的面积和周长这样写错在哪里啊?vara,b,c,p,m:integer;beginwrite('a,b,c=');readln(a,b,c);p:=(a+b+c)/2;m:=p*(p-a)*(p-b)*(p-c);writeln('s=',sqrt(m));writeln('l=',a+b+c); pascal有错误看看哪里错了?program paixu(input,output);vara,b,c,d :integer;beginreadln(a,b,c);if a>b then begind:=a;if c>d then write(c );write(d );wrire(b);elsewrite(d );write(c );write(b);endelse begind:=b;if c>d then write(c );write(d );wri 求两个自然数,其和是667,最小公倍数与最大公约数之比是120:1(pascal)program d313;vara,b,g,l:integer;f:text;function gcd(m,n:integer):integer;var r:integer;beginwhile r0 dobeginr:=a mod b;if r=0 thenbegingcd:=b;break;end;a:=b;b:=r;e pascal a to b pascal程序 定义一函数digit（n,k） 使得他回送整数n的从右边开始数第k个数字的值例如digit(15327,4)=5我写的程序如下program zlx52;varn,k:longint;function digit(n,k:longint):longint;vara,b:longint;begina:=exp(k*ln(10)); free pascal语言 一道很简单的题 我老爸说是错的.某梯形的上底、下底和高分别为8、12、9,求梯形的面积 用FREE PASCAL的简单的循环语句便一道题求1至500中满足以下条件的所有整数1：用3除余22：用5除余33：用7除余2 一道简单的题 一道简单的题 一道简单的题 一道数学简单题 一道简单的题 一道超简单题 一道简单几何题