AtCoder Beginner Contest 019

Submission #4628716

Source codeソースコード

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

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