Pascal:
var
str: string;
i, ENG, RUS: byte;
begin
writeln('Введите строку:'); readln(str);
for i := 1 to length(str) do
if upcase(str[i]) in ['A'..'Z'] then inc(ENG)
else if upcase(str[i]) in ['А'..'Я'] then inc(RUS);
if RUS > ENG then writeln('Русских букв больше на ', RUS - ENG)
else if ENG > RUS then write('Латинских букв больше на ', ENG - RUS)
else writeln('Одинаковое кол-во букв: ', RUS);
end.
Pascal:
var
str: string;
i, ENG, RUS: byte;
begin
writeln('Введите строку:'); readln(str);
for i := 1 to length(str) do
if upcase(str[i]) in ['A'..'Z'] then inc(ENG)
else if upcase(str[i]) in ['А'..'Я'] then inc(RUS);
if RUS > ENG then writeln('Русских букв больше на ', RUS - ENG)
else if ENG > RUS then write('Латинских букв больше на ', ENG - RUS)
else writeln('Одинаковое кол-во букв: ', RUS);
end.