Nam là một chàng trai rất thích tìm tòi, khám phá. Một lần Nam nghĩ ra một dãy số (an) mà cậu ta gọi là dãy đặc biệt được xây dựng theo quy tắc sau: Cho trước số a0 là số tự nhiên có tối đa 10 chữ số. Số ai (i1) là một số tự nhiên nhận được từ ai-1 bằng cách viết thêm vào sau các chữ số của ai-1 chính ai-1 nhưng viết theo thứ tự ngược lại. Chẳng hạn: a0 345 , a1 345543, a2 345543345543, Nam rất thích dãy số này và đem khoe nó với các bạn trong đội tuyển Tin. Lan là một thành viên trong lớp cảm thấy thích thú với dãy số đặc biệt này. Sau một lúc suy nghĩ, Lan liền đố Nam một bài toán sau: Với hai số nguyên dương N và K cho trước, hãy tìm chữ số thứ K của số hạng an trong dãy đặc biệt trên . Bạn hãy giúp Nam lập trình giải bài toán này nhé. Yêu cầu: Cho trước a0, N và K . Hãy tìm chữ số thứ K của số hạng an. Dữ liệu: Vào từ file văn bản CHUSO.INP gồm 2 dòng: Dòng đầu ghi số tự nhiên a0. Dòng thứ hai ghi hai số nguyên dương N , K (1N<=63,1k109) các số cách nhau ít nhất một dấu cách. Kết quả: Ghi ra file văn bản CHUSO.OUT chữ số tìm được. Trong trường hợp không tìm được chữ số nào thì ghi ra -1. Ví dụ CHUSO.INP 345 2 10 CHUSO.OUT 5 Code Pascal
Lời giải 1 :
program bestanhvan;
var a: string;
f,g:text;
N, K, i: longint;
function xau_nguoc(s: string): string;
var i, j: longint;
t: char;
begin
for i := 1 to length(s) div 2 do
begin
j := length(s) - i + 1;
t := s[i];
s[i] := s[j];
s[j] := t;
end;
exit(s);
end;
function cong(n: longint): string;
var i: longint;
s: string;
begin
if n = 0 then
exit(a);
s := a;
for i := 1 to n do
s := s + xau_nguoc(s);
exit(s);
end;
begin
assign(f,'CHUSO.inp');
assign(g,'CHUSO.out');
reset(f);
rewrite(g);
readln(f,a);
readln(f,N, K);
if N > 0 then a := cong(N);
if (K < 1) or (K > length(a)) then writeln('-1')
else writeln(g,a[K]);
close(f);
close(g);
end.
Bạn có biết?
Tin học là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng. Tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin. Hãy tận dụng sức mạnh của tin học để giải quyết các vấn đề và sáng tạo ra những giải pháp mới!
Nguồn :
Wikipedia - Bách khoa toàn thưTâm sự lớp 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần và sang năm lại là năm cuối cấp, áp lực lớn dần. Hãy chú ý đến sức khỏe, cân bằng giữa học và nghỉ ngơi để đạt hiệu quả tốt nhất!
Nguồn :
sưu tậpCó thể bạn quan tâm
Copyright © 2024 Giai BT SGK