pascal入门测试7(答案).docVIP

明明是1993年3月3日出生的，他出生的年份最后一个数字是3，月数、日期都是3，他认为数字3是他的幸运数，甚至凡是3的倍数的数他都非常喜欢，认为都是他的幸运数，现在给出一个正整数N，请你帮明明统计出1至N之间（包括1和N）有几个数字是明明的幸运数。 输入输出样例： 输入: 10 输入: 500 输出: 3 输出: 283 1)50 25 2)1000 513 3)5 1 4)20000 11251 Var n,i,j,k,t:integer; Begin readln(n); t:=0; for i:=1 to n do begin if i mod 3=0 then t:=t+1 else begin j:=i; repeat k:=j mod 10; j:=j div 10; until (k=3)or(j=0); if k=3 then t:=t+1; end;end; writeln(t); readln; End. 【问题描述】给定一个正整数N，请找出N转化为二进制后，其中所有1的位置。二进制的最低位（最右侧）为第0位。 Input 输入中包含一个正整数N （ 1 = N = 1000000） Output 输出N转换为二进制后，所有1的位置，每两个位置中间用一个空格隔开 【样例输入】 13 【样例输出】 0 2 3 1) 1 0 2)128 7 3)3456 7 8 10 11 4)100000 5 7 9 10 15 16 var n,t:longint; begin readln(n); t:=0; repeat if n mod 2=1 then begin write(t, );s:=s+1；end； n:=n div 2; t:=t+1; until n=0; writeln（S）; readln; end. 输入一个以“@”结束的字符串，从左至右翻译。若下一个字符是数字n（0n≤9），表示后一个字符重复n+1次，不论后一个字符是否为数字；若下一个字符非数字，则表示自己。 例如“A2B5E34FG0ZYWPQ59R@”可翻译成“ABBBEEEEEE4444FGZYWPQ999999R@”。 【输入】为需要输入的字符串（串长≤255） 【输出】为翻译后的字符串。 【样例输入】 A2B5E34FG0ZYWPQ59R@ 【样例输出】 ABBBEEEEEE4444FGZYWPQ999999R@ a3b5r@ abbbbrrrrrr@ A2ZY4FF@ AZZZYFFFFFF@ var c:char; i,n:integer; begin repeat read(c); if (c=1)and(c=9) then begin n:=ord(c)-ord(‘0’); read(c); for i:=1 to n+1 do write(c); end else write(c); until c=@; readln; readln; end. 用1表示S（Smile），2表示C（Cry），3表示H（Happy）。编写一个程序，输入一个由1、2、3组成的三位数，输出相应的字母序列。 [样例输入1] 123 [样例输出1] SCH [样例输入2] 332 [样例输出2] HHC [样例输入3] 124 [样例输出3] Your input was wrong！ var n,t,i:integer; begin readln(n); (if n div 1003)or(n div 10 mod 103)or(n mod 103) then begin writeln(Your input was wrong!);readln;halt;end; t:=100; for i:=1 to 3 do begin a:=n div t; case a of 1:write(S); 2:write(C); 3:write(H); end; n:=n mod t; t:=t div 10; end; writeln; readln; end. 据说原始部落人以小石子作为计算工具，用减半和倍加运算就能求得任何两个整数的乘积（注意当然不能用乘号 * 运算）。