主题：紧急求助帖，快~~
冰封血之度
[专家分：0] 发布于 2007-01-06 10:14:00
1、 通过键盘输入一串数，统计其中偶数的个数，用-1结束输入。
2、 按正序和反序输出26个英文字母
3、 输入一串字符，以‘？’结束，输出其中字母个数与数字个数。
4、 求3-1000之间的所有质数。十个一行。
5、 现有100枚硬币，已知总的钱数为2.47元，求其中有1分、2分、5分的硬币各多少枚？
.
6、 打印以下各式的值；
（1） S=1+3+5+……+99 (2500)
（2） T=100+98+96+……+10 (2530)
（3） P=3+6+9+……+27+30+31+41+51+……+91 (592)
回复列表 （共5个回复）
沙发
雪光风剑 [专家分：27190] 发布于 2007-01-06 14:42:00
1输一个做一个累加
2利用ascii码做两个循环
3利用ascii码
4可以利用筛数法
5类似百钱百鸡，穷举
6循环累加
板凳
zhangyuan [专家分：630] 发布于 2007-01-12 19:32:00
1:i:=1;
repter
begin
read(a[i]);
if a[i] mod 2:=0 then s:=s+1;
i:=i+1;
直到 (a[i]=-1);
write(s)
3 楼
zhangyuan [专家分：630] 发布于 2007-01-12 19:41:00
2:i:=96;
while i<122 do
begin
inc(i);
write(chr(i));
end;
i:=123;
while i>97 do
begin
i:=i-1;
write(chr(i));
end;
4 楼
zhangyuan [专家分：630] 发布于 2007-01-12 19:53:00
3:var a:array ['a'..'z'] of integer;
chi,ch:char;
begin
whlie ch<>? do
begin
read(ch);
for chi:='a' to 'z' do
if chi=ch then a[chi]:=a[chi]+1;
end;
for chi:='a' to 'z' do if a[chi]<>0 then writeln(chi,'='a[chi]
5 楼
zhangyuan [专家分：630] 发布于 2007-01-12 20:02:00
for n:=3 to 1000 do
for j:=1 to n do
if n mod j=0 then x:=x+1;
if x<=2 then
begin
if s mod 10=0 then writeln(n);
else write(n);
s:=s+1;
end;
end.
我来回复
您所在位置：