Question

信息学Free Pascal

二、进制转换
提交文件：num.pas / num.exe (或 num.bas / num.exe)
问题描述：
信息技术课上刚学了进制转换的方法，李老师布置了一个任务：给出一个十进制数N，要你将它转换为m进制数，请编程序实现。现在我们也来完成这个问题好吗？
数据输入：
从文件num.in中读入数据，文件中有二行，第一行是一个十进制正整数N(N<=3500),第二行是m(2=<m<=9), 表示要将N转换为m 进制数。
数据输出：
结果输出到文件num.out中，只有一个数，就是转换后的结果。
输入输出样例：
Num.in
52
4
Num.out
310
三、枪声问题
提交文件：gan.pas / gan.exe ( 或 gan.bas / gan.exe )
问题描述：
小明和小李同时参加了射击比赛，比赛规则是这样的，每次两人同时射击，每个人有S枚子弹进行射击，第1秒两人同时打出第一枚子弹，以后的s-1子弹可以自己根据一定的间隔时间打出，设小明后面的子弹每隔t1秒打出一枚子弹，小李后面的子弹每隔t2秒打出一枚子弹，如t1=2时，则后面子弹打出的时刻分别为4,7，10,13，…。如果某一时刻两人同时打出子弹，则只能听到一次响声，现在要你统计这两个人的比赛中共能听到几次枪声。
数据输入：
从文件gan.in中读入数据，文件中共有三行，第一行表示S的值(S<100)，第二行是正整数t1的值（t1<=20），第三行是正整数t2的值（t2<=20）。
数据输出：
结果输出到gan.out 中，只有一个数，表示能听到的枪声的次数。
输入输出样例
Gan.in
5
2
3
Gan.out
8
四、哥德巴赫猜想
提交文件：guess.pas / guess.exe （或 guess.bas / guess.exe）
问题描述：
大家都很熟悉哥德巴赫猜想，它的内容是：对于任意一个大于4的偶数，都可以分解为两个素数的和。虽然我们不能证明它，但我们可以编一个程序对于给定的大于4的偶数进行验证。现在我们的任务是：对于给定的大于4的偶数，找出它所有本质不同的分解式（分解为两个素数和的式），所谓本质相同也就是说两个式的素数如果一样，则不管顺序如何，都认为是本质相同的，如：24=5+19和24=19+5是本质相同的分解式。
数据输入：
从文件guess.in中读入数据，只有一个数，就是待分解的大于4的偶数N（N为正整数偶数，n<500）。
数据输出：
结果输出到guess.out中，有若干行，每行一个分解式，要求每个分解式第二个素数要大于第一个素数，所有的分解式按分解式的第一个素数从小到大输出。认真看下面的输出样例。
输入输出样例
Guess.in
24
Guess.out
24=5+19
24=7+17
24=11+13

Answer 1

二、
Program Num;
Var
n, r, k: LongInt;
a: Array [1..20] Of Byte;
Begin
Assign(Input, 'num.in'); ReSet(Input);
Assign(Output, 'num.out'); ReWrite(Output);
Read(n,r); k:=0;
While n>0 Do Begin
Inc(k);
a[k]:=n Mod r;
n:=n Div r;
End;
For n:=k DownTo 1 Do Write(a[n]);
End.

三、
Program Gan;
Var
n, t1, t2, i, sum: LongInt;
a: Array [1..2010] Of Byte;
Begin
Read(n,t1,t2);
For i:=0 To n-1 Do Begin
a[1+i*t1]:=1;
a[1+i*t2]:=1;
End;
If t1<t2 Then t1:=t2;
sum:=0;
For i:=(n-1)*t1+1 DownTo 1 Do Inc(sum,a[i]);
WriteLn(sum);
End.

四、
Program Guess;
Var
i, n, k: LongInt;
p: Array [2..500] Of Boolean;
Begin
Read(n);
FillChar(p, SizeOf(p), 1);
For i:=2 To n Do If p[i] Then Begin
k:=i+i;
While k<=n Do Begin
p[k]:=False;
Inc(k,i);
End
End;
For i:=2 To n Shr 1 Do If (p[i] And p[n-i]) Then WriteLn(n,'=',i,'+',n-i)
End.