Question

С клавиатуры вводится строка, содержащая русские и латинские буквы. Составьте программу, которая определяет, каких букв больше. Программа для языка Pascal

Answer 1

Ответ:

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.