AtCoder Beginner Contest 019

Submission #4241967

Source codeソースコード

var
 ch:char;
 i,s:longint;
 a,t,b:string;
begin
 read(a);
 s:=1;
 ch:=a[1];
 for i:=2 to length(a) do 
 if a[i]=ch then inc(s)
  else begin str(s,t);b:=b+ch+t;ch:=a[i];s:=1;end;
 writeln(b,ch,s);
end.

Submission

Task問題 B - 高橋くんと文字列圧縮
User nameユーザ名 luogu_bot2
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 201 Byte
File nameファイル名
Exec time実行時間 1 ms
Memory usageメモリ使用量 256 KB

Compiler messageコンパイルメッセージ

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

Test case

Set

Set name Score得点 / Max score Cases
Sample - 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
0.txt AC 1 ms 256 KB
1.txt AC 1 ms 256 KB
10.txt AC
11.txt AC
12.txt AC
13.txt AC
14.txt AC
15.txt AC
16.txt AC 1 ms 256 KB
17.txt AC
18.txt AC
19.txt AC
2.txt AC 1 ms 256 KB
20.txt AC
21.txt AC
22.txt AC
23.txt AC
24.txt AC
25.txt AC
26.txt AC
27.txt AC
28.txt AC
29.txt AC
3.txt AC 1 ms 256 KB
4.txt AC 1 ms 256 KB
5.txt AC 1 ms 256 KB
6.txt AC 1 ms 256 KB
7.txt AC 1 ms 256 KB
8.txt AC 1 ms 256 KB
9.txt AC 1 ms 256 KB
subtask0_1.txt AC
subtask0_2.txt AC
subtask0_3.txt AC