C :

#include<stdio.h>
#include<string.h>
int main()
{   
    char a[100],b[101];
    int i,j;
    while(gets(a))
	{  
		b[0]=' ';
		for(i=0,j=1;i<strlen(a);i++,j++)
			b[j]=a[i];
        for(i=0;i<strlen(a)+1;i++)
            if(b[i]==' '&&b[i+1]>='a'&&b[i+1]<='z')b[i+1]-=32;
		for(i=1;i<strlen(a)+1;i++)
			printf("%c",b[i]);
        printf("\n");
    }
  return 0;
}

C++ :

#include <stdio.h>

int main(){
	char str[110] = " ";	// 注意这里先将字符串初始化为一个空格，而非空串
	while(gets(str+1)){		// 注意这里读取字符时，存储从第一个字符开始，而不是字符串的开头
		int i=1;			// 注意这里下标也从 1 开始
		while(str[i]){
			if((str[i-1]==' ' || str[i-1]=='\t') && 'a'<=str[i] && str[i]<='z'){
				str[i] -= 32;
			}
			i++;
		}
		puts(str+1);		// 注意这里输出也是从第一个位置开始，而非是字符串的起始位置
	}

	return 0;
}

Pascal :

var st,sta:string;
    len,i:longint;

begin
   while not eof do
     begin
       readln(st);
       len:=length(st);sta:=upcase(st[1]);
       for i:=2 to len do
         if (st[i-1]=' ') or (st[i-2]='\') and (st[i-1]='t') or  (st[i-2]='\') and (st[i-1]='r') or  (st[i-2]='\') and (st[i-1]='n') then
            sta:=sta+upcase(st[i])
          else
             sta:=sta+st[i];
       writeln(sta);
     end;
end.

Python :

# coding=utf-8
import sys
for string in sys.stdin.readlines():
    for i in range(len(string)):
        if(string[i-1] in [' ','\t','\r','\n']):
            print(string[i].upper(),end='')
        else:
            print(string[i],end='')