回复：提问的艺术-想尽快解决问题的朋友请仔细查看

强大0.0

怎么编一个排序单词的程序，就是输入n个单词
按照26字母表，排序下来
如果第一个字母一样，就比较第二个字母
第二个一样，比较第三个字母。以此类推。

顶！

小敏是个数学迷，特别擅长加法与除法。老师给他一个问题，有一个2×2表格，表中有正整数A, B, C 和D，表格和表格值的计算如下：
表格值=
小敏的任务是对给出的表格每次顺时针旋转90度，使旋转后的表格值最大，但旋转的次数要最少。以下是表格旋转1次后的情况：
输入格式：第一行是以空格分隔的A和B，第二行是以空格分隔的C和D，都是不大于100的正整数。输出使表格值最大的最少旋转次数。
输入输出样例：
输入1：1 2
3 4
输出1：2
输入2：41 99
100 13
输出2：1
一个整数被称为“怪数”，它至少有两对因数，并且其中有一对因数的差等于另一对因数的和。例如：6是怪数，因为6 × 1 = 6, 2 × 3 = 6,6 - 1 = 2 + 3；24也是怪数，因为12 - 2 = 6 + 4。编程输入A和B表示的整数区间（1 ≤ A ≤ B ≤32767），输出该区间的所有怪数，一行一个，若没有输出为空。
样例输入：
1 25
样例输出：
6
24
求解，写了一半写不下去了，求思路

var
a:array[*a*..*z*]of integer;
ch:char;
t:integer;
begin
for ch:=*a* to *z* do
a[ch]:=0;
read(ch);
while ch<>*.*do
begin
if (ch>=*a*)and (ch<=*z*)then
a[ch]:=a[ch]+1;
read(ch);
end;
readln;
t:=0;
for ch :=*a*to *z* do
if a[ch]<>0then
begin
write(ch,*:*,a[ch],* *);
inc(t);
if t mod 5=0 then writeln;
end;
end.
为什么格式错误？

没想到本贴还在这里置顶，难得呀，不过也是自我提问时的总结，感谢朋友们捧场。

顶顶

@中国郝帅哥 翻精品区教程板块。

内容 ：
板桥高中规定同学必须在 7:30 以前到校早自习，最后一堂课则在 17:00 下课。给你现在的时间，请判断现在是上学时间或放学时间。
输入说明 ：
输入只有一行，其中含有两个由空隔开的整数 hh 及 mm，hh:mm 则代表现在的时间 (24小时制)。
输出说明 ：
如果现在是上学时间，请输出「At School」，否则请输出「Off School」范例输入 ： 17 00
范例输出 ：
Off School