Submission #4628716


Source Code Expand

Copy
var
  i,k:longint;
  s:ansistring;
begin
  readln(s);
  k:=1;
  for i:=1 to length(s)-1 do
  begin
    if (s[i]=s[i+1]) then begin k:=k+1;end
                   else
                   begin
                     write(s[i]);
                     write(k);
                     k:=1;
                  end;
  end;
  write(s[length(s)]);
  write(k);
  writeln;
end.

Submission Info

Submission Time
Task B - 高橋くんと文字列圧縮
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 100
Code Size 363 Byte
Status
Exec Time 0 ms
Memory 128 KB

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result

Set Name Score / Max Score Test Cases
Sample 0 / 0 subtask0_1.txt, subtask0_2.txt, subtask0_3.txt
All 100 / 100 0.txt, 1.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 2.txt, 20.txt, 21.txt, 22.txt, 23.txt, 24.txt, 25.txt, 26.txt, 27.txt, 28.txt, 29.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_1.txt, subtask0_2.txt, subtask0_3.txt
Case Name Status Exec Time Memory
0.txt 0 ms 128 KB
1.txt 0 ms 128 KB
10.txt 0 ms 128 KB
11.txt 0 ms 128 KB
12.txt 0 ms 128 KB
13.txt 0 ms 128 KB
14.txt 0 ms 128 KB
15.txt 0 ms 128 KB
16.txt 0 ms 128 KB
17.txt 0 ms 128 KB
18.txt 0 ms 128 KB
19.txt 0 ms 128 KB
2.txt 0 ms 128 KB
20.txt 0 ms 128 KB
21.txt 0 ms 128 KB
22.txt 0 ms 128 KB
23.txt 0 ms 128 KB
24.txt 0 ms 128 KB
25.txt 0 ms 128 KB
26.txt 0 ms 128 KB
27.txt 0 ms 128 KB
28.txt 0 ms 128 KB
29.txt 0 ms 128 KB
3.txt 0 ms 128 KB
4.txt 0 ms 128 KB
5.txt 0 ms 128 KB
6.txt 0 ms 128 KB
7.txt 0 ms 128 KB
8.txt 0 ms 128 KB
9.txt 0 ms 128 KB
subtask0_1.txt 0 ms 128 KB
subtask0_2.txt 0 ms 128 KB
subtask0_3.txt 0 ms 128 KB