Cod sursa(job #45049)

Utilizator Bluedrop_demonPandia Gheorghe Bluedrop_demon Data 31 martie 2007 23:13:47
Problema Text Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.79 kb
{
    Problema text
}

Program text;

Const multime = ['a'..'z','A'..'Z'];

Var k : char;
    lt, nrc : longint;

Begin
    Assign( input, 'text.in' );
    Reset( input );
        read( k );
        While not (k in multime) do read( k );
        nrc := 0;
        lt := 0;
        While not eof do
            Begin
                While (k in multime) and (not eof) do
                    Begin
                        read( k );
                        lt := lt+1;
                    End;
                nrc := nrc+1;
                While not ( k in multime ) and (not eof) do read( k );
            End;
    Close( input );

    If nrc =1 then lt := lt+1;

    Assign( output, 'text.out' );
    Rewrite( output );
        Writeln( lt div nrc );
    Close( output );
End.