Question

Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

Answer 1

Var s:string;i,f,l:integer;a:string;
begin
readln(s);
read(a)
;f:=0;
l:=length(s);
for i:=l downto 1 do
begin
if s[i]=' ' then             
if s[i+1]='a' then f:=f+1;
end;            
 if s[1]='a' then f:=f+1;
writeln(f);
end.          

Answer 2

Программа на Pascal ABC, которая подсчитывает количество слов, начинающихся с указанной буквы в заданной строке:

program CountWords;

var
  text, letter: string;
  count: integer;
  words: array of string;
  i: integer;

begin
  // Ввод строки и буквы
  writeln('Введите текст на русском языке:');
  readln(text);
  writeln('Введите букву:');
  readln(letter);

// Разделение строки на слова
  words := text.Split([' ', ',', '.', '!', '?', ':', ';', '-', '(', ')', '[', ']', '{', '}', '<', '>', '/', '\', '*', '+', '=', '@', '#', '$', '%', '^', '&', '*', '`', '~']);

// Подсчет слов, начинающихся с указанной буквы
  count := 0;
  for i := 0 to Length(words) - 1 do
  begin
    if words[i] <> '' then
    begin
      if words[i][1] = letter then
        count := count + 1;
    end;
  end;

// Вывод результата
  writeln('Количество слов, начинающихся с буквы "', letter, '": ', count);
end.

В данной программе сначала пользователю предлагается ввести текст на русском языке и букву. Затем программа разделяет введенный текст на слова и подсчитывает количество слов, начинающихся с указанной буквы. Результат выводится на экран.