Дан текст. Написать программу, определяющую процентное отношение строчных и прописных букв к общему числу символов в нем.
Вопрос посетителя
Дан текст. Написать программу, определяющую процентное отношение строчных и прописных букв к общему числу символов в нем.
Ответ эксперта
uses crt;
var
s:string;
i:longint;
lit:byte;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] in [‘a’..’z’,’а’..’я’,’ё’,’A’..’Z’,’А’..’Я’,’Ё’] then
inc(lit);
writeln(‘Отношение букв к длине текста: ‘,lit/length(s)*100,’%’);
end.