Question

Помогите, пожалуйста!!! Написать программу на языке Паскаль, которая запрашивает у пользователя строку текста и определяет, каких букв в данной строке больше - букв "а" или букв "н". Если букв "а" больше, чем "н", программа должна вывести на экран фразу "Букв а больше". В противном случае программа должна вывести на экран фразу "Букв а не больше, чем букв н" Пожалуйста, ни в коем случае, не используй const, Last, count, arr

Answer 1

Var i,a,n: integer;
s: string;
begin
write ('Введите строку: ');
readln (s);
for i:=1 to length(s) do
begin
if (s[i]='а') or (s[i]='А') then a:=a+1;
if (s[i]='н') or (s[i]='Н') then n:=n+1
end;
if a>n then writeln ('Букв а больше')
else writeln ('Букв а не больше, чем букв н')
end.

Answer 2

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

pascalCopy code
program CountLetters;
var
  inputString: string;
  countA, countN, i: integer;
begin
  writeln('Введите строку текста:');
  readln(inputString);

  countA := 0;
  countN := 0;

  for i := 1 to length(inputString) do
  begin
    case lowercase(inputString[i]) of
      'а': countA := countA + 1;
      'н': countN := countN + 1;
    end;
  end;

  if countA > countN then
    writeln('Букв "а" больше')
  else
    writeln('Букв "а" не больше, чем букв "н"');
end.

В этой программе мы используем переменные inputString для хранения введенной пользователем строки, countA для подсчета количества букв "а" и countN для подсчета количества букв "н" в строке.

Затем мы проходим по каждому символу введенной строки, используя цикл for, и с помощью оператора case проверяем, является ли текущий символ буквой "а" или "н" (с учетом регистра). Если символ соответствует букве "а", увеличиваем счетчик countA, а если символ соответствует букве "н", увеличиваем счетчик countN.

После того, как мы посчитали все буквы "а" и "н", мы сравниваем значения countA и countN. Если countA больше, то выводим сообщение "Букв 'а' больше", иначе выводим сообщение "Букв 'а' не больше, чем букв 'н'".