PTIT123E PTIT spoj – Số vòng
Nguồn đề bài: http://www.spoj.com/PTIT/problems/PTIT123E/ 1. Đề bài PTIT123E PTIT spoj Một số vòng là một số nguyên có n chữ số, khi nhân số đó với các số từ 1 đến n, ta được số mới thỏa mãn: Nếu như chọn các chữ số từ một vị trí nào đó rồi vòng lại (đến trước chữ số đầu tiên ...
Nguồn đề bài: http://www.spoj.com/PTIT/problems/PTIT123E/
1. Đề bài PTIT123E PTIT spoj
Một số vòng là một số nguyên có n chữ số, khi nhân số đó với các số từ 1 đến n, ta được số mới thỏa mãn: Nếu như chọn các chữ số từ một vị trí nào đó rồi vòng lại (đến trước chữ số đầu tiên chọn) ta được số đã cho ban đầu. Ví dụ:
Số 142857 là số vòng, vì:
142857 × 1 = 142857
142857 × 2 = 285714
142857 × 3 = 428571
142857 × 4 = 571428
142857 × 5 = 714285
142857 × 6 = 857142
Viết chương trình xác định xem một số có phải số vòng hay không.
Input
Mỗi bộ test trên một dòng chưa một số nguyên duy nhất có từ 2 đến 60 chữ số. Lưu ý: Các số có thể có các số 0 ở đầu, và không được xóa bỏ các số 0 này, nó là một phần của số và cũng được tính trong việc xác định độ dài của số. Ví dụ: “01” là số có 2 chữ số, nó khác với “1” có một chữ số.
Output
Với mỗi bộ test, in trên một dòng xác định xem số đó có phải là số vòng hay không?
Nếu là số vòng in ra “Số_của_bộ_test_tương_ứng is cyclic”.
Ngược lại in ra “Số_của_bộ_test_tương_ứng is not cyclic”.
Xem ví dụ sau để biết rõ hơn về định dạng in ra.
Example
Input:
142857
142856
142858
01
0588235294117647
Output:
142857 is cyclic
142856 is not cyclic
142858 is not cyclic
01 is not cyclic
0588235294117647 is cyclic
2. Hướng dẫn PTIT123E PTIT spoj
– Bài này đề cho gì làm đó thôi. nhưng vì số chữ số là 60 nên phải áp dụng xử lí số nguyên lớn.
3. Code tham khảo PTIT123E PTIT spoj
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | const fi='; nmax=60; type data=longint; var f:text; s,vongtron:ansistring; function add(a,b:ansistring):ansistring; var c:ansistring; i,carry,s:data; begin while length(a)<length(b) do a:='0'+a; while length(b)<length(a) do b:='0'+b; carry:=0; c:='; for i:=length(a) downto 1 do begin s:=ord(a[i])+ord(b[i])-2*48+carry; if s>=10 then begin dec(s,10); carry:=1; end else carry:=0; c:=chr(s+48)+c; end; if carry<>0 then c:='1'+c; exit(c); end; function nhan(a:ansistring; b:data):ansistring; var i,j,nho,er:data; c,tmp:ansistring; begin c:='; nho:=-1; for i:=length(a) downto 1 do begin str((ord(a[i])-48)*b,tmp); inc(nho); for j:=1 to nho do tmp:=tmp+'0'; c:=add(c,tmp); end; while (length(c)>1) and (c[i]='0') do delete(c,1,1); exit(c); end; procedure xuli; var i,j:data; tich:ansistring; begin vongtron:=s+s+s+s; for i:=1 to length(s) do begin tich:=nhan(s,i); if pos(tich,vongtron)=0 then begin writeln(s,' is not cyclic'); exit; end; end; writeln(s,' is cyclic'); end; procedure docfile; var i,j:data; begin assign(f,fi); reset(f); while (not seekeof(f)) or (not eof(f)) do begin readln(f,s); xuli; end; close(f); end; begin docfile; end. |
