02/10/2018, 14:42
PTIT121I spoj PTIT – Lặp lại các kí tự
Nguồn đề bài: http://www.spoj.com/PTIT12R1/problems/PTIT121I/ 1. Đề bài PTIT121I spoj Với một xâu ký tự S, và một số nguyên R, hãy tạo ra một xâu T bằng cách mỗi ký tự trong S được lặp lại R lần. Các ký tự trong S có thể nằm trong dãy: 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ$%*+-./ ...
Nguồn đề bài: http://www.spoj.com/PTIT12R1/problems/PTIT121I/
1. Đề bài PTIT121I spoj
Với một xâu ký tự S, và một số nguyên R, hãy tạo ra một xâu T bằng cách mỗi ký tự trong S được lặp lại R lần. Các ký tự trong S có thể nằm trong dãy:
0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ$%*+-./:
Input
- Dòng 1 ghi số bộ test (không quá 1000)
- Mỗi bộ test gồm số thứ tự, một dấu cách, tiếp theo là số 1<=R<=8, một dấu cách, rồi đến xâu ký tự S (không quá 20 ký tự).
Output
Với mỗi bộ test ghi trên một dòng số thứ tự bộ test, một dấu cách rồi đến xâu T.
Example
Input:
2
1 3 ABC
2 5 /HTP
Output:
1 AAABBBCCC
2 /////HHHHHTTTTTPPPPP
2. Code tham khảo PTIT121I spoj PTIT
const fi=';
type
data=integer;
var
f:text;
test,i,r,tmp:data;
s:string;
procedure xuli;
var i,j:data;
begin
for i:=2 to length(s) do
for j:=1 to r do
write(s[i]);
writeln;
end;
begin
assign(f,fi); reset(f);
readln(f,test);
for i:=1 to test do
begin
read(f,tmp);
read(f,r);
readln(f,s);
write(i,' ');
xuli;
end;
close(f);
end.
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 | const fi='; type data=integer; var f:text; test,i,r,tmp:data; s:string; procedure xuli; var i,j:data; begin for i:=2 to length(s) do for j:=1 to r do write(s[i]); writeln; end; begin assign(f,fi); reset(f); readln(f,test); for i:=1 to test do begin read(f,tmp); read(f,r); readln(f,s); write(i,' '); xuli; end; close(f); end. |
