Cod sursa(job #344840)

Utilizator dcupsaoCupsa Darius dcupsao Data 31 august 2009 19:23:35
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var a:char;
i,j:longint;
f,g:text;

begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
while not eof(f) do
begin
read(f,a);
if (ord(a)>=97)and(ord(a)<=122) or (ord(a)>=60)and(ord(a)<=90) then inc(i);
if a=' ' then inc(j);
end;
writeln(g,i);
writeln(g,j);
write(g,i div j);
close(f);
close(g);
end.