作业帮 > 综合 > 作业

从键盘上输入5个三位正整数,统计出现数字0、1、2、3、.、8、9的次数分别为几次?

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 13:56:14
从键盘上输入5个三位正整数,统计出现数字0、1、2、3、.、8、9的次数分别为几次?
QB做
从键盘上输入5个三位正整数,统计出现数字0、1、2、3、.、8、9的次数分别为几次?
您孩子在什么地区?各地区难度不一样.小学的比赛一般来说很简单.我这里有几道很简单的题,不妨看看(答案不一定最精简,运行速度不一定最短)如果需要详解,可以再做要求.
小明发现了一个有趣的现象,有些数字(例如:2333)是个质数,将末尾数去掉后发现他仍然是质数,依此类推,一直到第一位仍是质数.现在给定n和m的值,求在这个范围内这所有的种数字.
示例:输入:2332 2334
输出:2333
答案:
var n,m:integer;
b,c,q,i,j,k,o:integer;
label 10;
begin
readln(n,m);
for i:=n to m do
begin
b:=1;
for j:=2 to (i-1) do
if (i mod j) = 0 then b:=0;
if b<>0 then
begin
o:=i;
while o<>0 do
begin
o:=o div 10;
for k:=2 to (o-1) do
if (o mod k)=0 then begin c:=0;goto 10; end
else c:=1;
end;
if c=1 then begin writeln(i);q:=q+1; end;
10:
end;
end;
write(q);
end.
(程序没做调试,应该没问题)
小猪喜欢吃苹果.猪妈妈想考考小猪,让小猪一次性的把最大的苹果选主来.你能帮帮小猪么?
说明:输入苹果数n和每个苹果的质量,打印最大的苹果质量和第一次出现的位置.使用文件输入输出
示例:输入:
5
1 3 2 5 4
输出:
4
5
答案:
var a:array[1..10000] of integer;
n:integer;
i,j:integer;
max:integer;
label 10;
begin
assign(input,'pig.in');
reset(input);
assign(output,'pig.out');
rewrite(output);
readln(n);
max:=0;
for i:=1 to n do
begin
read(a[i]);
if (max<a[i]) then max:=a[i];
end;
for i:=1 to n do
if a[i]=max then begin j:=i; goto 10; end;
10:
writeln(j);
write(max);
close(input);
close(output);
end.