Question

СРОЧНО ПОМОГИТЕ Паскаль С клавиатуры по одному символу вводятся Ваши фамилия, имя, отчество, указанные через пробел. Признаком конца ввода является символ «точка». Определить: 1) количество символов в этой строке; 2) количество символов «а»; 3) количество символов, совпадающих с первой буквой Вашей фамилии. Замечание. Для п. 3 учесть, что это могут быть буквы как строчные, так и заглавные. Например, Петров Петр Прокофьевич

Answer 1

Иван Иванович Хоменко.
1) 22 символа
2) 2 символа буквы "а"
3) 1 символ

Answer 2

Для решения данной задачи на языке программирования Паскаль, вы можете использовать следующий код:

pascalCopy code
program CountCharacters;

var
  inputString: string;
  lastName, firstName, middleName: string;
  totalCharacters, countA, countFirstLetter: integer;
  firstLetter: char;

begin
  writeln('Введите ФИО через пробел и завершите точкой:');
  readln(inputString);

  // Определяем количество символов в строке
  totalCharacters := length(inputString);

  // Ищем позицию пробелов для разделения ФИО
  lastName := copy(inputString, 1, pos(' ', inputString) - 1);
  delete(inputString, 1, pos(' ', inputString));
  
  firstName := copy(inputString, 1, pos(' ', inputString) - 1);
  delete(inputString, 1, pos(' ', inputString));

  middleName := copy(inputString, 1, pos(' ', inputString) - 1);
  
  // Считаем количество символов 'а'
  countA := 0;
  for var i := 1 to totalCharacters do
  begin
    if inputString[i] = 'а' then
      countA := countA + 1;
  end;

  // Получаем первую букву фамилии и учитываем возможные заглавные буквы
  firstLetter := lastName[1];
  if firstLetter = 'п' then
    firstLetter := 'П'
  else if firstLetter = 'п' then
    firstLetter := 'П';

  // Считаем количество символов, совпадающих с первой буквой фамилии
  countFirstLetter := 0;
  for var i := 1 to totalCharacters do
  begin
    if inputString[i] = firstLetter then
      countFirstLetter := countFirstLetter + 1;
  end;

  // Выводим результаты
  writeln('Количество символов в строке:', totalCharacters);
  writeln('Количество символов ''а'':', countA);
  writeln('Количество символов, совпадающих с первой буквой фамилии:', countFirstLetter);
end.

Пожалуйста, поместите этот код в среду программирования Pascal (например, Free Pascal) и запустите его. После запуска программы она попросит вас ввести ФИО через пробел и завершить ввод точкой. После этого программа выдаст результаты - количество символов в строке, количество символов 'а' и количество символов, совпадающих с первой буквой фамилии.