用pascal编程

来源：百度知道 编辑：UC知道 时间：2024/06/17 09:50:20
3、（附加题）输入一串字符，以“？”结束输出其中小写字母个数与数字个数。

1215
1、输入一行字符，分别统计出其中英文字母、空格、数字、和其它字符的个数。
2、编程求下式中n的最大值：2×2＋4×4＋6×6＋...＋n×n<1500。
3、（附加题）有一对兔子，从出生后第三个月起每个月都生一对兔子，小兔子长到第三个月后，每个月又生一对兔子，假设兔子都不死，问：第20个月后共有多少对兔子。

1216
23、 打印下列图形：
1
121
12321
1234321
12321
121
1
24、打印下列图案：（输入N值来控制图案的规模，下列图案均以N=3为例）
&
& &
& & &
& & &
& & &
& & &
*
* * *
* * * * *
# @ *
# # @ @ * *
# # # @ @ @ * * *
25、输入一个奇数，输出下列图形；
输入：3
*
***
*
输入：5
*
***
*****
***
*

1217
1、试编程找出能被各位数字之和整除的一切两位数。
2、一个正整数的个位数字是6，如果把个位数字移到首位,所得到的数是原数的4倍，试编程找出满足条件的最小正整数。
3、（附加题）某本书的页码从1开始，小明算了算，总共出现了202个数1，试编程求这本书一共有多少页？
1218
1、输入一个整数，计算它各位上数字的和。（注意：是任意位的整数）
2、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如13。试找出所有两位数的绝对素数。
3、（附加题）输入一个正

var
s,i:char;
a:array['a'..'z']of integer;
b:array['0'..'9']of integer;
begin
for i:='a' to 'z' do a[i]:=0;

附加题:
program ex;
var
ch:char;
t,t1:integer;
begin
t:=0;t1:=0;
read(ch);
while ch<>'?' do begin
if (ord(ch)>=97)and(ord(ch)<=122) then t:=t+1;
if (ord(ch)>=48)and(ord(ch)<=57) then t1:=t1+1;
read(ch);
end;
writeln;
writeln(t,' ',t1);
end.

附加题：
var
s,i:char;
a:array['a'..'z']of integer;
b:array['0'..'9']of integer;
begin
for i:='a' to 'z' do a[i]:=0;
{将每个字母计数器清零，当然如果读入是没有这个字母那还是0}
repeat
read(s);
if (s>='a')and(s<='z') then a[s]:=a[s]+1;
if (s>='0')and(s<='9') then b[s]:=b[s]+1;
{读入并