Submission #3095328

Source Code Expand

Uses sysutils;
var
	s:String;
	i:Longint;
begin
	readln(s);
	write(UpperCase(s[1]));
	for i:=2 to length(s) do begin
		write(LowerCase(s[i]));
	end;
	writeln();
end.

Submission Info

Submission Time
Task B - 名前の確認
User kotatsugame
Language Pascal (FPC 2.6.2)
Score 100
Code Size 178 Byte
Status AC
Exec Time 0 ms
Memory 256 KB

Compile Error

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

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 10
Set Name Test Cases
All sample_01.txt, sample_02.txt, test_AzielehadfJD.txt, test_Oq.txt, test_P.txt, test_Wi.txt, test_ZNEFzealEAkD.txt, test_aAZaz.txt, test_z.txt, test_zDkElDjNVmAq.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 256 KB
sample_02.txt AC 0 ms 256 KB
test_AzielehadfJD.txt AC 0 ms 256 KB
test_Oq.txt AC 0 ms 256 KB
test_P.txt AC 0 ms 256 KB
test_Wi.txt AC 0 ms 256 KB
test_ZNEFzealEAkD.txt AC 0 ms 256 KB
test_aAZaz.txt AC 0 ms 256 KB
test_z.txt AC 0 ms 256 KB
test_zDkElDjNVmAq.txt AC 0 ms 256 KB