level 1
求二进制数的最大公约数与最小公倍数
【试题描述】
输入二个二进制整数（长度不超过20位），求出其最大公约数与最小公倍数，并用二进制数输出。
【输入描述】
两行，每行一个二进制整数。
【输出描述】
一行，用二进制数表示的最大公约数与最小公倍数，用空格隔开。
【输入样例】
11
100
【输出样例】
1 1100
2011年05月29日 09点05分
1
level 1
【基础】找最长良序字符串
时间限制：1000MS 内存限制：65536K
解答次数：308 通过次数：223
【试题描述】
我们将“ABC”或“ACEG”等类似的字串称为良序字串（因为它们是按ASCII码排列的），而像“ACB”或“ACCD”或“AGCD”则不可称为良序字串。
编写程序，将键入的一串字符中的最长良序字串找出来，输出其长度。
【输入描述】
读入一串字符（长度≤30）。
【输出描述】
一个最长良序字串的长度。
【输入样例】
2345
13579124682
3456
【输出样例】
5
2011年05月29日 09点05分
2
level 1
第二题大家帮我看下哪错了。
var b,c:char;
s:string;
t,max,k,i:integer;
begin
readln(s);
k:=length(s);max:=0;t:=1;c:=s[1];
for i:=2 to k do
begin
b:=c;
c:=s[i];
if i<>k then
if b<c then t:=t+1
else begin if t>max then max:=t;t:=1;end;
end;
writeln(max);
end.
2011年05月29日 10点05分
3
level 7
var b,c:char;
s:string;
t,max,k,i:integer;
begin
readln(s);
k:=length(s);max:=0;t:=1;c:=s[1];
for i:=2 to k do
begin
b:=c;
c:=s[i];
if b<c then t:=t+1
else begin if t>max then max:=t;t:=1;end;
end;
if t>max then max:=t;
writeln(max);
end.
2011年05月29日 13点05分
5
level 1
统计单词个数
【试题描述】
输入一行字符串，包含若干个单词，约定相邻的两个单词用空格隔开，编程统计单词的个数
【输入描述】
一行空格隔开的若干个单词。
【输出描述】
单词个数
【输入样例】
Hello World
【输出样例】
2
【解题提示】
单词前后可能有多个空格
2011年06月01日 12点06分
6
level 1
var
i,num:integer;
st:string;
ch,ch1:char;
begin
readln(st);
num:=0;
ch:=' ';
for i:=1 to length(st) do
begin
ch1:=st[i];
if (ch1<>' ') and (ch=' ') then num:=num+1;
ch:=ch1;
end;
writeln('num=',num);
end.
用ch记作前一个字符，用ch1记后一字符， 只要当前字符不是空格，并且前一个是空间时，说明是一词组的开头。
2011年06月01日 13点06分
7
level 1
【基础】十六进制转换
【试题描述】
输入一个不超过100000位的十六进制数，请转换成八进制数。
注：十六进制数中，字母0-9还对应表示数字0-9，字母“A”（大写）表示10，“B”表示11，…，“F”表示15。比如：十六进制A10B表示的10进制数是：10*16^3+1*16^2+0*16^1+11*16^0=41227。转换成八进制数是：120413，因为1*8^5+2*8^4+0*8^3+4*8^2+1*8^1+3*8^0=41227。
【输入描述】
一个十六进制数，没有前导0（除非是数字0）。
【输出描述】
一个八进制数，没有前导0（除非是数字0）。
【输入样例】
123ABC
【输出样例】
4435274
【解题提示】
考虑它们与二进制表示的关系。
2011年06月03日 11点06分
8
level 1
【基础】求P进制数的最大公因子与最小公倍数
【试题描述】
有两个P进制的整数A，B，求出A，B的最大公因子与最小公倍数，并仍以P进制数的形式输出。
【输入描述】
一行，为P A B。（2≤P≤9）
【输出描述】
两行
第一行为最大公因子
第二行为最小公倍数
【输入样例】
2 110 1001
【输出样例】
(110,1001)＝11
[110,1001]＝10010
2011年06月03日 11点06分
9
