Question

Дана строка. Надо написать программу, определяющую, какой символ "а" или "б" встречается чаще. (Паскаль)

Answer 1

Ответ:

Объяснение:

Var a,b,x,k,j : Integer;

Begin

Read (a);

Read(b);

Read(x);

While x<>0 do

Begin

If x mod 10=a then k:=k+1;

If x mod 10=b then j:=j+1;

X:=x div 10;

End;

If k=j then WriteLn('одинаковое количество ');

If k>j then WriteLn(символов а больше)

Else

WriteLn (символов b больше)

Answer 2

Вот пример программы на языке Паскаль, который определяет, какой символ 'а' или 'б' встречается чаще в заданной строке:

pascalCopy code
program CountCharacters;
var
  inputString: string;
  countA, countB: integer;
  i: integer;
begin
  countA := 0;
  countB := 0;

  writeln('Введите строку:');
  readln(inputString);

  for i := 1 to length(inputString) do
  begin
    if inputString[i] = 'а' then
      countA := countA + 1
    else if inputString[i] = 'б' then
      countB := countB + 1;
  end;

  if countA > countB then
    writeln('Символ "а" встречается чаще.')
  else if countB > countA then
    writeln('Символ "б" встречается чаще.')
  else
    writeln('Символы "а" и "б" встречаются одинаковое количество раз.');

  readln;
end.

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