AtCoder Beginner Contest 019

Submission #3105299

Source codeソースコード

var
	s:String;
	i,n:Longint;
	c:Char;
begin
	readln(s);
	for i:=1 to length(s) do begin
		if c=s[i] then inc(n)else begin
			if n>0 then begin write(c);write(n);end;
			n:=1;
			c:=s[i];
		end;
	end;
	write(c);
	writeln(n);
end.

Submission

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