一、读程序写结果。

第1题：
var i,j：integer；
begin
for i：＝1 to 4 do
      begin
    for j：＝4 downto i do
       write(‘+’)；
    writeln
end
end．

第2题：
var m,n:integer;
begin
m:=18;
n:=81;
while m<>n do
begin
    wh

一、请将之前while循环的题目用repeat做一遍。

二、编程
1、从键盘输入一个整数X（X不超过10000），若X的各位数字之和为7的倍数，
则打印“Yes”，否则中打印“No”。

2、求1992个1992的乘积的末两位数是多少？

3、编程求出所有不超过1000的数中，含有数字3的自然数，输入它们的总和。

三、读程序写结果。
var
n,k:integer;
begin
n

读程序写结果。
var
s,n:integer;
function fac(n:integer):integer;
begin
if n=1 then fac:=1
    else f:=n*n+fac(n-1);
end;
begin
readln(n);
s:=f(n);
writeln('fac(',n,')',s);
end.

编程题：
第1题：用递归求x^n（x的n次方,即x*x*x*...*x一共乘n次）

第2题：翻牌（用递归法完成）。
　　

读程序写结果。

第1题：
    var a，k:integer;
    begin
       a:=13972;k:=0;
       while a<>0 do
          begin
             a:=a div 10;k:=k+1;
    

误删资料恢复

一不小心，删错了，还把回收站清空了，咋办啊？
只要三步，你就能找回你删掉并清空回收站的东西

步骤：
1、单击“开始——运行，然后输入regedit （打开注册表）

2、依次展开：HEKEY——LOCAL——MACHIME/SOFTWARE/microsoft/WINDOWS/ CURRENTVERSION/EXPLORER/DESKTOP/NAMESPACE 在左边空白外点击“新建”，选择：“主键”，

1、编程找出四位整数abcd中满足下述关系的数：(ab+cd)(ab+cd)=abcd。

2、求所有三位数中各位数字之和为13的有哪几个？如193，数字之和1+9+3=13，那么将193是其中一个，打印出来。

3、寻找1~1000之内既是3的倍数又是5的倍数的数打印出来，打印时每个数之间用空格分隔。

回复的时候注明题号。

1、输入一个四位数，将各位上的数字拆分出来。
如输入4758
输出：
qian:4
bai:7
shi:5
ge:8

2、输入一个三位数，如375，将这个数字倒过来变成573，将原数与新数相加的结果输出。
输入：375
输出：948

以上两题输入的数字是任意的,不固定。回复的时候写上姓名和题号。

关于举办第25届宁波市中小学生计算机程序设计竞赛的通知

各县（市）区科协、教育局，青少年科技中心（青辅协），大榭开发区文教卫生局，东钱湖旅游度假区，宁波国家高新区社会事务管理局，各有关单位和学校：