Cod sursa(job #1039734)
Utilizator | Data | 23 noiembrie 2013 15:46:48 | |
---|---|---|---|
Problema | Text | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.46 kb |
program text;
var s:ansistring;
litere:set of char;
i,j,k,l:integer;
begin
assign(input,'text.in'); reset(input); readln(s);
close(input);
litere:=['a'..'z','A'..'Z'];
l:=0; k:=0; s:=' '+s+' ';
for i:=1 to length(s)-1 do begin
if s[i] in litere then inc(l);
if (not (s[i] in litere)) and (s[i+1] in litere ) then inc(k);
end;
assign(output,'text.out'); rewrite(output);
writeln(l,' ',k,' ',l div k);
close(output);
end.