fork download
copy 
  1. program ideone;
  2.  
  3. function min(ch:string):string;
  4. begin
  5.         if ( ch = '' ) then
  6.           min:= ''
  7.         else
  8.           begin 
  9.             if (ch[1] in ['A'..'Z']) then
  10.                 ch[1]:=chr(ord(ch[1])+32);
  11.             min:= ch[1] + min(copy(ch,2,length(ch)-1));
  12.           end;
  13. end;
  14.  
  15. begin
  16. 	WriteLn(min('AbC'));
  17. end.
Success #stdin #stdout 0s 2060KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
abc
https://ideone.com/8cSKyq
language:
Pascal (gpc 20070904)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!