AtCoder Beginner Contest 019

Submission #3236505

Source codeソースコード

var
    s:ansistring;
    l,i,ans:longint;
begin
    readln(s);
    l:=length(s);
    ans:=1;
    for i:=2 to l do
        if s[i]<>s[i-1] then
        begin
            write(s[i-1],ans);
            ans:=1;
        end
        else inc(ans);
    writeln(s[l],ans);
end.

Submission

Task問題 B - 高橋くんと文字列圧縮
User nameユーザ名 luogu_bot2
Created time投稿日時
Language言語 Pascal (FPC 2.6.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 271 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