Question

ПАСКАЛЬ ИНФОРМАТИКА 10 КЛАСС. Уровень B. 1) С клавиатуры вводится символьная строка. Определите, какой символ встречается в ней чаще всего. 2) С клавиатуры вводится предложение, в котором слова разделены пробелами. Определите, сколько слов в этом предложении начинается на букву «а». 3) Напишите функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя повторяющиеся пробелы на один пробел. РЕШИТЕ ПОЖАЛУЙСТА БЕЗ СЛОЖНЫХ ФУНКЦИЙ readinteger, ord, foreach, и тд не приветствуется (так как решил бы 10ти классник)

Answer 1

вот все программы, я все решил:

Answer 2

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

1. Определение символа, который встречается чаще всего:

pascalCopy code
program MostFrequentChar;
var
  inputString: string;
  charCount: array['a'..'z'] of Integer;
  maxCount: Integer;
  mostFrequentChar: Char;
  i: Integer;
begin
  writeln('Введите символьную строку:');
  readln(inputString);

  for i := 'a' to 'z' do
    charCount[i] := 0;

  for i := 1 to Length(inputString) do
    if inputString[i] in ['a'..'z'] then
      Inc(charCount[inputString[i]]);

  maxCount := 0;
  mostFrequentChar := ' ';

  for i := 'a' to 'z' do
    if charCount[i] > maxCount then
    begin
      maxCount := charCount[i];
      mostFrequentChar := i;
    end;

  writeln('Символ "', mostFrequentChar, '" встречается чаще всего, ', maxCount, ' раз.');
end.

2. Определение количества слов, начинающихся на букву «а»:

pascalCopy code
program WordsStartingWithA;
var
  inputSentence: string;
  wordCount: Integer;
  i: Integer;
begin
  writeln('Введите предложение:');
  readln(inputSentence);

  wordCount := 0;
  i := 1;

  while i <= Length(inputSentence) do
  begin
    while (i <= Length(inputSentence)) and (inputSentence[i] = ' ') do
      Inc(i);

    if (i <= Length(inputSentence)) and (inputSentence[i] = 'a') then
      Inc(wordCount);

    while (i <= Length(inputSentence)) and (inputSentence[i] <> ' ') do
      Inc(i);
  end;

  writeln('Количество слов, начинающихся на букву "а": ', wordCount);
end.

3. Удаление лишних пробелов из строки:

pascalCopy code
program RemoveExtraSpaces;
var
  inputString, cleanedString: string;
  i: Integer;
  isSpace: Boolean;
begin
  writeln('Введите символьную строку:');
  readln(inputString);

  cleanedString := '';
  isSpace := False;

  for i := 1 to Length(inputString) do
  begin
    if inputString[i] = ' ' then
    begin
      if not isSpace then
      begin
        cleanedString := cleanedString + ' ';
        isSpace := True;
      end;
    end
    else
    begin
      cleanedString := cleanedString + inputString[i];
      isSpace := False;
    end;
  end;

  writeln('Исходная строка: "', inputString, '"');
  writeln('Обработанная строка: "', cleanedString, '"');
end.

Приведенные решения предполагают, что пользователь вводит данные с клавиатуры. Каждая задача решается через базовые циклы, условные операторы и строковые операции.