二、 島嶼的緣分
提交檔案: b.pas / b.exe
輸入檔案: b.in
輸出檔案: b.out
問題描述:
人和人的相識是一種緣分，其實人有幸到某地也是一種緣分。某風景優美的k小島的緣分和其他景點的緣分來得不一般，k島上有乙個石碑刻上了兩個很大很大的整數x和y，和乙個正整數k，後面寫道:「誰能準確的寫出x和y的乘積中最右邊的k位數（如果乘積不足k位則在左邊用「0」補足k位），他就是和k小島有緣分的人」，李先生到了k小島，他馬上叫他的秘書算一算，寫出x和y的乘積中最右邊的k位數，看看李先生和他的秘書是否和k小島有緣分。現在也請你完成這個工作（注意: 如果乘積不足k位則在左邊用「0」補足k位）。
資料輸入:
從檔案b.in讀入資料，檔案中共有三行，第一行是乙個位數不大於120的正整數x,第二行是乙個位數不大於120的正整數y，第三行是乙個正整數k（1=<=250）。
資料輸出:
結果輸出到檔案b.out中，只有一行，就是x和y的乘積中最右邊的k位數。
輸入輸出樣例1:
b.in
3060
3b.out
800輸入輸出樣例2:
b.in
1213
5b.out
00156
附dalao的高精度乘法模板加思路
var
s1,s2:string;
ans:array[0..1001,0..1001]of longint;
i,j,n,s,t,l1,l2,wait,gw,sw,swl:longint;
begin
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
read(s);
for i:=l1 downto1do
begin
t:=251-(l1-i);
for j:=l2 downto1do
begin
swl:=sw;
wait:=(ord(s1[i])-48)*(ord(s2[j])-48);
gw:=wait mod
10; gw:=gw+swl;
sw:=wait div
10; if gw>9
then
begin
sw:=sw+1;
gw:=gw mod
10; end;
dec(t);
ans[i,t]:=gw;
end;
ans[i,t-1]:=sw;
swl:=0;
sw:=0;
end;
for i:=2
to l1 do
begin
for j:=250
downto t do
begin
swl:=sw;
wait:=ans[1,j]+ans[i,j];
gw:=wait mod
10; sw:=wait div
10; gw:=gw+swl;
if gw>9
then
begin
sw:=sw+1;
gw:=gw mod
10; end;
ans[1,j]:=gw;
end;
end;
for i:=250-s+1
to250
dowrite(ans[1,i]);
end.
2009東莞特長生 Q4 開發區規劃
四 開發區規劃 提交檔案 d.pas d.exe 輸入檔案 d.in 輸出檔案 d.out 問題描述 小王是d市主管經濟的副市長，由於經濟發展的需要，要在d市組建乙個高新技術開發區，經過研究，規劃局在d市的東部劃出了一塊土地作為開發區選址。棘手的是，這塊土地有些歷史文化遺址散布在某些格仔內，這些歷史...
2023年東莞市資訊學特長生測試題 島嶼的緣分
2009年東莞市資訊學特長生測試題 島嶼的緣分 time limit 10000ms memory limit 65536k total submit 102 accepted 52 case time limit 1000ms description 人和人的相識是一種緣分，其實人有幸到某地也是一...
ssl1323 08年東莞特長生 聰明的小李
2008年東莞特長生 之 聰明的小李 小李的識記能力非常強，一列數他一看就知道最大的是哪個數，這個數在原數列中的位置。現在的問題是給定乙個各不相同的正整數數列，要你找出第k大的數是多少，並指出該數在原數列中的位置。共有三行，第一行是乙個正整數n，表示原數列共有n個數，第二行是n個正整數，表示原數列中...