Cod sursa(job #1650838)

Utilizator SaniokMDACaliman Alexandru SaniokMDA Data 11 martie 2016 20:49:37
Problema Text Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var
  s: string;
  i, j, x, y, z: longint;

begin
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(output);
  x := 0;
  y := 0;
  read(s);
  for i := 1 to length(s) do begin
    if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then x := x + 1;
  if s[i] = ' ' then y := y + 1;
end;
y:=y+1;
write(x div y);
end.