Cod sursa(job #1604412)
| Utilizator |  Plesca Vlad SherlockHolmes |
Data | 18 februarie 2016 11:34:12 |
|---|---|---|---|
| Problema | Text | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
program Textt;
var s:string;
n,i:integer;
med:real;
e,w:set of char;
t,f:text;
begin
assign(t,'text.in');
assign(f,'text.out');
reset(t);
readln(t,s);
e:=['a'..'z'];
w:=['A'..'Z'];
for i:=1 to length(s) do if (s[i] in e) or (s[i] in w) then inc(n);
end.