在PASCAL语言中，表达式35div3mod4的值是多少

一、在PASCAL语言中，表达式35div3mod4的值是多少

从左往右：

35div3=11; 11mod4=3

所以最后答案为 3

ps：div是整除，因为35÷3=11…2 取整数部分；

mod是取余，因为11÷4=2…3 取余数部分。

希望能有帮助，祝Pascal学习愉快！

二、已知一个三位数,int fix mod求个位十位百位

int main()

{

\x09int num = 456;

\x09int g,s,b;

\x09g = num % 10; //个位

\x09s = num % 100 / 10; //十位

\x09b = num / 100; //百位

\x09printf(num:%d\nb:%d,s:%d,g:%d\n,num,b,s,g);

\x09return 0;

}

三、pascal二进制数最大公约数和最小公倍数（用自定义函数）

var a,b:string;xy,x,y,n:longint;

function ezs(a:string):longint;

var

c:array[1..30] of longint;

s,l,i:longint;

begin

l:=length(a);

c[l]:=1;

for i:=L-1 downto 1 do

c[i]:=c[i+1]*2;

s:=0;

for i:=1 to L do

s:=s+(ord(a[i])-48)*c[i];

ezs:=s;

end;

procedure sze(a:longint);

var s:array[1..1000] of longint;i,j:longint;

begin

i:=0;

while a<>0 do

begin

i:=i+1;

s[i]:=a mod 2;

a:=a div 2;

end;

for j:=i downto 1 do write(s[j]);

end;

begin

readln(a);x:=ezs(a);

readln(b);y:=ezs(b);

xy:=x*y;

while x mod y<>0 do

begin

n:=x;

x:=y;

y:=n mod y;

end;

sze(y);

write(' ');

sze(xy div y);

writeln;

end.

四、假定系统日期是1998年12月20日，有如下命令：MJ=MOD(YEAR(DATE())，100)解题思路是什么

本人愚见：DATE（）是获取系统日期，也就是1998年12月20日。YEAR(DATE()）是获取日期的年份，也就是1998年。MOD(YEAR(DATE())，100)是求余。也就是1998/100的余数，MJ=98。。。

程序好久没动过，不知道对不对。。。

五、在VB程序设计中“mod”“ / ”“ ”三个运算的区别是什么

mod的含义是取余。eg.3mod2结果为1 /的含义是除。eg.3/2结果为1.5 \的含义是整除。eg.3\2结果为1