Question

нужно сделать программу, которая высчитает количество букв "п"( маленьких и больших) в предложении... Паскаль..Спасибо большое!

Answer 1

===== PascalABC.NET =====

begin

 ReadlnString.Count(c-> c in ['п','П']).Println

end.

Answer 2

Вот пример программы на языке Pascal, которая считает количество букв "п" (маленьких и больших) в предложении:

pascalCopy code
program CountLetterP;

var
  sentence: string;
  count: integer;
  i: integer;

begin
  count := 0;

  writeln('Введите предложение:');
  readln(sentence);

  for i := 1 to Length(sentence) do
  begin
    if (sentence[i] = 'п') or (sentence[i] = 'П') then
      count := count + 1;
  end;

  writeln('Количество букв "п" в предложении:', count);
  readln;
end.

Программа запрашивает у пользователя предложение, а затем проходит по каждому символу в предложении и проверяет, является ли он буквой "п" (как маленькой, так и большой). Если символ соответствует условию, то переменная count увеличивается на единицу. В конце программа выводит количество найденных букв "п" в предложении.