AtCoder Beginner Contest 019

Submission #5239706

Source codeソースコード

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

Submission

Task問題 B - 高橋くんと文字列圧縮
User nameユーザ名 luogu_bot4
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 221 Byte
File nameファイル名
Exec time実行時間 3 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.txt AC
10.txt AC
11.txt AC
12.txt AC
13.txt AC
14.txt AC
15.txt AC
16.txt AC
17.txt AC 3 ms 128 KB
18.txt AC
19.txt AC
2.txt AC
20.txt AC
21.txt AC
22.txt AC
23.txt AC
24.txt AC
25.txt AC
26.txt AC
27.txt AC 2 ms 256 KB
28.txt AC
29.txt AC
3.txt AC
4.txt AC
5.txt AC
6.txt AC
7.txt AC
8.txt AC
9.txt AC
subtask0_1.txt AC
subtask0_2.txt AC
subtask0_3.txt AC