20 在ASCII码中代表 空格。
前面加个%是代表unicode码,国际互联网网址标准码。
第一题:(while)
var n:longint;
begin
n:=1;
while n<=20 do。
begin
write(n,' ');。
n:=n+1;
end;
end.
第二题:(while)
var n:longint;
begin
n:=30;
while n<=60 do。
begin
write(n,' ');。
n:=n+2;
end;
end.
第二题:(repeat)
var n:longint;
begin
n:=30;
repeat
write(n,' ');。
n:=n+2;
until n>60;
end.
第三题:(repeat)
var n:longint;
begin
n:=20;
repeat
write(n,' ');。
n:=n-1;
until n<1;
end.
第四题:(repeat)
var n,s:longint;。
begin
n:=1;
repeat
s:=s+n;
n:=n+1;
until n>100;。
write(s);
end.
第五题:(repeat)
var n,x,y:longint;。
begin
n:=10;
repeat
x:=n mod 10;
y:=n div 10;
if x*10+y=n+36 thenwrite(n,' ');。
n:=n+1;
until n>99;
end.
第六题:(while)
var n,x,y:longint;。
begin
n:=1000;
while n<=9999 do。
begin
x:=n div 100;。
y:=n mod 100;。
if (x+y)*(x+y)=n then write(n,' ');。
n:=n+1;
end;
end.
第七题:(while)
var n,m:longint;。
begin
n:=1;
while n<=9 do。
begin
m:=1;
while m<=9 do。
begin
write(n,'*',m,'=',n*m,' ');。
m:=m+1;
end;
n:=n+1;
writeln;
end;
end.
第八题:(while)
var n,tou,tui:longint;。
begin
read(tou,tui);
n:=1;
while n<=tou do。
begin
if ((tui-n*2) mod 4=0) and ((tui-n*2) div 4+n=tou) then writeln(n,' ',tou-n);。
n:=n+1;
end;
end.
都是自己手打的,望采纳!
你可以在运行中输入“msconfig”,在“一般”标签下,把复选框前面的钩都去掉。接下来,你可以进入注册表,打开下面的项,HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run。
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run。
把它们下面的键都删除掉,就OK啦。
readme.eml 名为:尼姆达病毒,通常是由e-mail传播的。
如果使用outlook接收邮件的话根本不需要打开附件,只要看过邮件就中招了。
如果IE没有补丁就会自动下载readme.eml文件,弄得到处都是。
NIMDA病毒清除和免疫新方案。
Windows Nt/2000/XP的手工清除方法。
1、结束其中进程名称为“xxx.tmp.exe”以及“Load.exe”的进程(xxx为任意文件名)。
2、删除系统temp文件夹中文件长度为57344的文件。
3、删除系统System文件夹中的长度为57344字节的Riched20.DLL文件及load.exe。
4、打开System.ini文件,在[load]中如果有一行“shell=explorer.exe load.exe -dontrunold”,则改为“shell=explorer.exe”
5、在硬盘区的根目录下寻找Admin.DLL文件,如果在根目录下存在该文件,则删除它。
6、打开“控制面板|用户和密码”,将Administrator组中的guest帐号删除。
7、把C盘的完全共享取消掉
8、搜索整个硬盘,把所有readme.eml的文件删除,这时在你没有对系统进行免疫修复前,请不要点击任何readme.eml文件,用ctrl+A选取全部readme.eml文件,删除掉。
如果不是为了学铣内圆的话,我强烈建议你用支20的铣刀直接G83扩孔。
或者用加工中心里面的铣圆模式G120 P22那个,按里面提示直接代入数据。
手编的话已经有人回答了,就不重复了。