KS3 KS4试题分析

A[1..100] of
M:=n;
I:=1
A[i]:=m
B:=1;
While m div 10<>0 do
I:=i+1;
B:=b*10;
M:= m div 10;
A[i]:=m;.
I:=i+1;
A[i]:= n mod b;
For j:= 1 to I do
A[i]是否是合数？
如果有一个不是，false
True ,输出
Ks4——2；
s,循环判断发现之后，insert在之前和之后各加括号，用M来记录上个字符，跟此时循环到的字符进行比较，如果一样的花，先删除，然后统计变量加1，如果说不是同一个字符，先插入统计字符，然后清零，将M更换。

999556556666
A[1..12]
A[1]:=9, a[4]=5;
A[i]
B[i]+
C{i} 如果c[i]>10 进位
KS4_3 高精度加法
a:array[1..200] of longint;
i,n,x,j,b,k:longint;
for i:=200 downto 200-n+1 do
a[i]:=x;
for i:= 1 to n-1 do
for j:= 200 downto 200-i+1 do
begin
b:=a[j]+x;
a[j]:=b mod 10000;
a[j-1]:=a[j-1]+b div 10000;
end;
while a[i]=0 do inc(i);
for j:= i to 200 do
begin
if j >i then
begin
b:=10000;
for k:=1 to 4 do
begin
b:=b div 10 ;
write(a[j] div b);
a[j]:=a[j] mod b;
end;
end
else write(a[j]);
end;
Ks4_4
最大积
I:=1 求和因子
While n-(I+1) >0 do
Begin
A[i]:=i+1;
I:=i+1;
N:=n-(i+1);
End;
A[i]:=i+1;k:=I;
A[i-n]:=1;
高精度乘法
求乘积
C:=longint，l是a数组中因子个数
B[1..100000]of integer;
for i:=2 to l do begin
x:=0;
for j:=1 to m do begin
o:=b[j]*a[i]+x;
b[j]:=o mod 10;
x:=o div 10;
end;
while x>0 do begin
b[m+1]:=x mod 10;
x:=x div 10;
inc(m);
end;
end
Ks4_5;
For a:= 1 to 4 do
For b:=a+1 to 3*a+1 do
For c:=b+1 to 3*b+1 do
Begin
B[1]:=1;b[2]:=a;b[3]:=b;b[4]:=c;
Fillchar(m,sizeof(m),0);
For i:=1 to 3*c do
M[i]:=I;
For i:=2 to 3*c do
Begin
For j:=2 to 4 do
If I mod b[j]=0 then a[i]:=I mod b[j];
For j:=1 to 4 do
If I >b[j] then
if a[i-b[j]]+1< a[i] then a[i]:=a[i-b[j]]+1；
End;
End;。