Алгоритмы работы с файлами

[Юляшко]

Дан файл, содержащий произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.

[Филантроп]

c:=0;
for i:=1 to length(s) do begin
if s[i] in ['0' ..'9'] then inc(c);
if s[i] in ['А'..'Я','а'..'я'] then dec(c);
end
if c>0 then writeln('> цифр');
if c<0 then writeln('> букв');
if c=0 then writeln('поровну');

ну а файл приделайте сами!

[Grag]

Филантроп, а если файл не содержит ни русских букв, ни цифр??? Все равно поровну???

[Филантроп]

0=0 ==> поровну)
а тс пусть делает так как ей надо