从键盘上输入5个三位正整数,统计出现数字0、1、2、3、.、8、9的次数分别为几次?
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 13:56:14
从键盘上输入5个三位正整数,统计出现数字0、1、2、3、.、8、9的次数分别为几次?
QB做
QB做
您孩子在什么地区?各地区难度不一样.小学的比赛一般来说很简单.我这里有几道很简单的题,不妨看看(答案不一定最精简,运行速度不一定最短)如果需要详解,可以再做要求.
小明发现了一个有趣的现象,有些数字(例如: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.
小明发现了一个有趣的现象,有些数字(例如: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.
从键盘上输入5个三位正整数,统计出现数字0、1、2、3、.、8、9的次数分别为几次?
统计数字出现的次数:从键盘输入5个正整数,统计出现数字0.1.2.3……9的出现次数.
从键盘上任意输入50个正整数,统计其中各位数字的平方和等于108的数
Pascal输入一串字符,结束,分别统计其中数字(0,1,2,.9)出现的次数
C++编程.随意输入一个正整数N,计算从1~N之间0、1、2、3、...、9数字出现的次数是多少.
用C语言编写,从键盘上输入若干个正整数,输入0结束.统计所有正整数的个数,并计算最大值,最小值和平均值.
从键盘上任意输入一个三位整数,编程计算其每一位的数字相加只和(忽略正负号).例如,输入123,则分离出1,2,3三个数,
从键盘上输入20个字符,编程统计并输出其中英文字母(不区分大小写、数字字符(0~9)和空格的个数及所占的百
从0到100数字2出现的次数为?
输入30个0--9之间的数字,分别统计0--9这10个数字分别出现了多少次,用c#编写
从键盘上输入20个整数,分别统计计算并输出所有整数之和、正数之和、负数之和、正数的个数及负数的个数.
excel 统计次数,5列为一组,要统计出现其中三个数字的次数(如统计 1 5 6 在这几组中出现的次数)