Giải bài trực tuyến

Problem hidden
This problem was hidden by Editorial Board member probably because it has incorrect language version or invalid test data, or description of the problem is not clear.

Từ tập các bài có trên SPOJ (oi)

2240. Số huyền bí

Mã bài: MYSTERY

Ðất nước Vãn Lang thời cổ xưa ðã có những hiểu biết tân tiến về số học. Tương truyền rằng, vua Hùng Vương thứ 17 cùng các trưởng lão trong triều ðình ðã phát minh ra các số huyền bí. Các số này giúp chỉ dẫn ðường vào kho tàng của ðất nước.

Theo các chứng tích khảo cổ, các nhà khoa học kết luận rằng số huyền bí cơ sở a bằng tích của (3d-1) với mọi ước số d > 0 của a.

Bờm thích số học ðồng thời cũng rất thích tìm hiểu lịch sử ðất nước. Bạn hãy giúp Bờm tính số huyền bí cơ sở a (1 ≤ a ≤ 109). Do kết quả có thể rất lớn, bạn chỉ cần in ra phần dư của số huyền bí cơ sở a khi chia cho 20122007.

Dữ liệu

Gồm một số nguyên a duy nhất.

Kết qủa

In ra số nguyên duy nhất là phần dư của số huyền bí cơ sở a khi chia cho 20122007.

Ví dụ

Dữ liệu:
10

Kết qủa
7291779

Được gửi lên bởi:Ngô Minh Ðức
Ngày:2007-12-20
Thời gian chạy:1s
Giới hạn mã nguồn:50000B
Ngôn ngữ cho phép:Tất cả ngoại trừ: AWK CLOJ ERL F# GO JS PERL 6 PYTH 3.1.2 SCALA SED TCL
Nguồn bài:VNOI Marathon '08 - Practice Round
Problem Setter: Ngô Minh Ðức

hide comments
2012-05-24 16:54:21 tập code
@Technology cho mình hỏi vì sao giới hạn mảng X là 84420 vậy
2012-05-18 11:25:09 Technology FRX
const
InputFile = '';
OutputFile = '';
max = 20122007;
var
kq : Int64;
n : longint;
X : array[0.. 84420] of longint;
procedure Enter;
var
f : TextFile;
begin
Assign(f, InputFile); Reset(f);
Readln(f, n);
Close(f);
end;
procedure Init;
var
i : longint;
begin
X[0] := 1;
for i := 1 to 84420 do
X[i] := (X[i - 1] * 3) mod max;
end;
procedure Install;
var
i : longint;
t : Int64;
begin
kq := 1;
for i := 1 to trunc(sqrt(n)) do
if n mod i = 0 then
begin
t := n div i;
kq := (kq * (X[i mod 84420] mod max - 1)) mod max;
if t <> i then
kq := (kq * (X[t mod 84420] mod max - 1)) mod max;
end;
Writeln(kq);
end;

Begin
Enter;
Init;
Install;
End.
100 djem.AC
2012-04-18 07:32:15 Lê Hùng Sơn
Bài này hay thât
2012-03-05 13:44:28 0
Lúc nào cũng ðược 90ð hóa ra mình sai test cơ sở n=1 thì out ra 2 (mình out ra 4). Mọi người cẩn thận chỗ này nha :D
2012-03-01 10:55:28 nguyen ngoc linh
Làm mãi mới ðược có 20 ðiểm :))
2011-11-21 02:49:37 vagab0ne_r0se
3^d - 1 với d là ước nào thế?
2011-10-25 06:31:25 ngô hoàng anh phúc
bài hay thật
2011-08-09 18:35:54 bé bi bô tập duyệt like ntd
bai rat hay
2011-06-20 17:03:14 pham tuan minh
THUAT TOAN GJ VAY
2011-06-14 20:07:07 define_art_love
minh dc 90 khong the len 100 la sao :((
SPOJ System © 2012 Sphere Research Labs | Projekty informatyczne i aplikacje na zamówienie. All Rights Reserved.