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.