pascal高手进

Posted 2023-04-18

1、读一组整数，用0作为终止标志，打印其中正、负数的个数及各自的总和。
2、求
3、齐王点兵的故事，相传齐王韩信才智过人，从不直接点数自己军队的人数，只是让士兵先后以三人一排，五人一排，七人一排地变换队形，而他每次只掠一眼队伍的排尾就知道总人数了（不超过100人）。编程求总人数。

参考技术A 1.var a,b,c,d,e,g:longint;f:array[0..10000]of longint;
begin
a:=1;
for b:=0 to 10000 do
f[b]:=1;
while f[a-1]<>0 do
begin
read(f[a]);
a:=a+1;
end;
for b:=1 to a-1 do
if f[b]<0 then begin c:=c+1;e:=e+f[b];end
else if f[b]>0 then begin d:=d+1;g:=g+f[b];end;
writeln('FU ',c,' ',e);
write('ZHENG ',d,' ',g);
end.
第3题如果都没余数100内没有,最少105 参考技术B program t1;
var
i,n,p,sn,sp:integer;
begin
n:=0;p:=0;sn:=0;sp:=0;
read(i);
while i<>0 do
begin
if i<0 then begin inc(n); sn:=sn+i; end
else begin inc(p);sp:=sp+i;end;
read(i);
end;
write(n:5,sn:5,' ',p:5,sp:5);
end.本回答被提问者采纳 参考技术C 1.
var
x,a,b:integer;
begin
a:=0;
b:=0;
repeat
read(x);
if x>0 then a:=a+1;
if x<0 then b:=b+1;
until x=0;
write('plus:',a,'negative:',b)

有关MD5与PHP，高手进

各位，谁能给我两段PHP源码，分别用于MD5的加密与解密的……拜托各位了。我看连ASP都有这种功能，相信我们的PHP肯定不会比它差的！各种帮帮忙

不是高手。
加密：
<?php

$b=md5($a);

?>

解密：这个真没有。 参考技术A 哥们，服了你，
md5是一种非对称加密算法，只能加密，不能解回来的，
无论你用什么语言都一样，asp的md5也是不可能解的，
你如果还要解回来，建议你找一个对称加密算法吧，
或自己写个算法。 参考技术B php 加密可以直接用md5('123456');md5是单向加密的，无法被解密的（除了暴力）。