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.

Answer 2

Конечно, давайте напишем программу на Pascal, которая считает, сколько русских и латинских букв содержится во введенной строке и определяет, каких букв больше. Для этого можно использовать следующий код:

program CountLetters;

var
  inputString: string;
  russianCount, latinCount: integer;
  i: integer;

begin
  // Инициализируем счетчики букв
  russianCount := 0;
  latinCount := 0;

// Вводим строку с клавиатуры
  writeln('Введите строку, содержащую русские и латинские буквы:');
  readln(inputString);

// Перебираем символы в строке
  for i := 1 to length(inputString) do
  begin
    // Проверяем, является ли символ русской буквой
    if (inputString[i] >= 'А') and (inputString[i] <= 'я') then
      russianCount := russianCount + 1
    // Проверяем, является ли символ латинской буквой
    else if ((inputString[i] >= 'A') and (inputString[i] <= 'Z')) or ((inputString[i] >= 'a') and (inputString[i] <= 'z')) then
      latinCount := latinCount + 1;
  end;

// Выводим результат
  writeln('Количество русских букв: ', russianCount);
  writeln('Количество латинских букв: ', latinCount);

// Сравниваем количество букв и выводим результат
  if russianCount > latinCount then
    writeln('В строке больше русских букв.')
  else if russianCount < latinCount then
    writeln('В строке больше латинских букв.')
  else
    writeln('В строке одинаковое количество русских и латинских букв.');

readln;
end.

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