Question

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

Answer 1

Так а где само задание?
Но в: Петров Пётр Прокофьевич. - 23 символа, "а"-0, и 3 символа совпадающих с Перовой буквой фамилии

Answer 2

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

program CountSymbols;

var
  input: string;
  surname, name, middleName: string;
  i, count, countA, countFirstLetter: integer;
  firstLetter: char;

begin
  writeln('Введите ФИО, разделяя элементы пробелами:');
  readln(input);

i := 1;
  count := 0;
  countA := 0;
  countFirstLetter := 0;

while input[i] <> '.' do
  begin
    if input[i] <> ' ' then
    begin
      count := count + 1;

if input[i] = 'а' then
        countA := countA + 1;

if (countFirstLetter = 0) and (input[i] <> ' ') then
      begin
        firstLetter := UpCase(input[i]);
        if (input[i] = firstLetter) or (input[i] = LowerCase(firstLetter)) then
          countFirstLetter := countFirstLetter + 1;
      end;
    end;

i := i + 1;
  end;

writeln('Количество символов в строке: ', count);
  writeln('Количество символов "а": ', countA);
  writeln('Количество символов, совпадающих с первой буквой вашей фамилии: ', countFirstLetter);
end.

После запуска программы, она запросит ввести ФИО, разделяя элементы пробелами. После ввода символа ".", программа выведет на экран количество символов в строке, количество символов "а" и количество символов, совпадающих с первой буквой вашей фамилии.