一、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

四、幻兽帕鲁电系的帕鲁在哪

幻兽帕鲁电系的帕鲁位于电幻森林的深处。

详细

在广袤的奇幻大陆中，生活着各种各样的幻兽，它们分别属于不同的系别，拥有各自独特的能力。其中，电系的帕鲁是一种非常稀有且强大的幻兽。关于它的栖息地，一直是一个谜，直到勇敢的探险者们揭开了这个秘密。

电幻森林，这片被雷电之力环绕的神秘之地，就是帕鲁的家园。这里高耸的树木常年被电光笼罩，空气中弥漫着静电的嗡鸣。在这片森林的深处，帕鲁以其强大的电系能力，维护着这片土地的平衡。

帕鲁的身体呈现出一种流线型的设计，它的皮肤闪烁着电光，仿佛是雷电的化身。它的眼睛犹如闪电般犀利，能够洞察一切细微的动静。帕鲁的四肢强壮有力，行动起来迅猛无比，任何想要接近它的生物，都必须先经受住它电光的洗礼。

电幻森林的环境与帕鲁的能力相得益彰。在这里，帕鲁可以自由地操控雷电之力，无论是攻击、防御还是控制，它都能通过电系能力轻松实现。探险者们在寻找帕鲁的过程中，不仅能够领略到电幻森林的奇幻风光，还能亲眼目睹帕鲁运用电系能力的震撼场面。

总结来说，幻兽帕鲁电系的帕鲁居住在电幻森林的深处，这片充满雷电之力的神秘之地与帕鲁的电系能力相互辉映，共同构成了奇幻大陆上一道独特的风景线。