Определить процент больших и маленьких букв ко всему тексту

[Kirra]

Привет! Помогите пожалуйста с программой….
Статистика. Дан текст. Напишите прогу определяющую процентное строчных и прописных букв к общему числу символов в нём.

[Alar]

Кира, а вот такой заголовок составить самостоятельно никак?

"Определить процент больших и маленьких букв ко всему тексту"

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

[pomoshnic]

Сделай счетчик символов например

...
var st,pr,alls:word;
     n:byte;
     s:string;
begin
st:=0;
pr:=0;
alls:=0;
readln(s);
for n:=1 to length(s) do
case s[n] of
'а'..'я':begin inc(st);{увеличение счетчика строчых символов}inc(alls);{увеличение счетчика всех символов}
'А'..'Я':inc(pr);{увеличение счетчика прописных символов}inc(alls);
end;
...
{определить процентное соотношене строчных и прописных букв к общему числу символов }

[Boss_irk]

var stroka: string;
    n:byte;
    proc,st,pr:word;
    vpr:real;
begin
   st := 0;
   pr := 0;
   proc := 0;
   readln(stroka);

   for  n:= 1 to length(stroka) do
   case stroka[n] of
    '*'..'п','a'..'z': begin inc(st); inc(proc); end;
    'Ђ'..'џ','A'..'Z': begin inc(pr); inc(proc); end;
   end;
   write('% ‘ва®з*ле ЎгЄў ');
   writeln(st/(st+pr)*100:4:2);
   write('% Џа®ЇЁб*ле ЎгЄў ');
   writeln(pr/(st+pr)*100:4:2);


   readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.