pascal入门测试10(附答案) 下载本文

内容发布更新时间 : 2024/5/13 16:37:10星期一 下面是文章的全部内容请认真阅读。

1. 输入 N组测试数据,每组两个自然数,求绝对差最小的值及第几组数。样例N=6

10 20 30 35 12 15 100 101 1000 1100 5 8 输出 1 4 ABS(X-Y)

Var n,I,x,y,z,min,p:longint; Begin read(n);min:=99999; For i:=1 to n do begin Read(x,y);z:=abs(x-y);

If z

100 120 99 300 900 800 5000 5500 1 2 30 40 555 666 777 888 800 810 10 12 输出 1 5

陶陶很喜欢数学 ,尤其喜欢奇怪的数。一天,他突然发现,有的整数拥有的因子数是很有个性的,决定找到一个具有n个正因子数的最小的正整数。

例如:n=4,则m=6,因为6有4个不同正整数因子1,2,3,6;而且是最小的有4个因子的整数。 【输入文件】

仅一个数 n(1≤n≤60) 【输出文件】 仅一个数 m 【样例输入】 4

【样例输出】 6

var x,t,n,i:longint; begin readln(n);

for x:=1 to maxlongint do begin t:=0;

for i:=1 to x do

if x mod i=0 then t:=t+1;

if t=N then begin write(x);break end; end; end.

输入 12 输出 60 输入30 输出 720 输入 60 输出 5040 输入 45 输出 3600

请统计某个给定范围[L, R]的所有整数中,数字 2 出现的次数。

比如给定范围[2, 22],数字 2 在数2中出现了 1次,在数 12中出现 1 次,在数 20 中出现 1 次,在数 21 中出现 1 次,在数 22 中出现 2 次,所以数字 2 在该范围内一共出现了 6次。

【输入】 输入文件名为 two.in。 输入共 1 行,为两个正整数 L 和 R,之间用一个空格隔开。

【输出】 输出文件名为 two.out。输出共 1 行,表示数字 2 出现的次数。 【输入输出样例1】 Two.out two.in 2 22 6

【数据范围】 1 ≤ L ≤R≤ 10000。

var a,b,c,d,e,f:integer; begin

assign(input,'two.in');reset(input);

assign(output,'two.out');rewrite(output); readln(a,b); f:=0;d:=0;

for c:=a to b do begin e:=c; repeat

d:=e mod 10; e:=e div 10;

if d=2 then inc(f); until e=0; end;

writeln(f);

close(input);close(output); end.

输入2 100 输出 20 输入 1 1000 输出 300

输入 2222 2223 输出 7 输入 9993 10000 输出 0

新学年就要开始了,爸爸把N元钱给了小青,让他购买一批文具,并作了以下要求:只能买圆珠笔、铅笔和铅笔芯,并且每样至少买一支,总数要超过30支,而且钱要全部花完。当小青去到文具店时,发现圆珠笔8角钱一支、铅笔2角钱一支、铅笔芯1角钱一支。小青怎么买才能符合爸爸的要求呢?请你编个程序帮他算出符合购买要求的所有方案总数。 Input

一个整数N,表示购买文具一共的元数。(1 <= N <= 50)

Output

一个整数,即符合购买要求的所有方案总数。 Sample Input 8 Sample Output 135 program ex1294;

var n,i,j,k,sum:integer; begin

readln(n); n:=n*10; sum:=0;

for i:=1 to n div 8 do for j:=1 to n div 2 do begin

k:=n-i*8-j*2;

if (i+j+k>30) and (k>1) then inc(sum); end;

writeln(sum);

end. 输入 4 输出 2输入 12 输出 387 输入 50 输出 7626

小敏是个数学迷,特别擅长加法与除法。老师给他一个问题,有一个2×2表格,表中有正整数A, B, C 和D,表格和表格值的计算如下:

表格值 =

AB?CD

小敏的任务是对给出的表格每次顺时针旋转90度,使旋转后的表格值最大,但旋转的次数要最少。以下是表格旋转1次后的情况:

41 100 99 139 100 139 41 99

输入格式:第一行是以空格分隔的A和B,第二行是以空格分隔的C和D,都是不大于100的正整数。输出使表格值最大的最少旋转次数。

输入输出样例: