Cod sursa(job #660298)
Utilizator | Data | 12 ianuarie 2012 01:24:45 | |
---|---|---|---|
Problema | Text | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.54 kb |
program text2;
var
c:char;
f:text;
nrlit,nrcuv:longint;
begin
assign(f,'text.in');
reset(f);
repeat
read(f,c);
until (upcase(c) in ['A'..'Z']);
nrcuv:=1;
nrlit:=1;
while not eoln(f) do begin
read(f,c);
if c in['-',' '] then inc(nrcuv);
if upcase(c) in ['A'..'Z'] then inc(nrlit);
end;
close(f);
assign(f,'text.out');
rewrite(f);
writeln(f,nrlit div nrcuv);
close(f);
end.