Question

Ввести (с клавиатуры) непустую последовательность натуральных чисел // (признак конца последовательности – 0). Вывести максимальное число // этой последовательности и количество его вхождений. Требование: // запрещено пользоваться операторами цикла, перехода, массивами, файлами // (т.е. решать задачу надо рекурсивно). Язык - pascal

Answer 1

procedure Fool(var k, max: integer);

begin

 var n := ReadInteger;

 if n = 0 then exit;

 k += n;

 if n > max then

   max := n;

 Fool(k, max)

end;

begin

 var (n, nm) := (0, 0);

 Fool(n, nm);

 Print(n, nm)

end.

Answer 2

Вы можете решить эту задачу рекурсивно на языке Pascal, используя процедуру. Ниже приведен пример кода, который выполняет это задание:

pascalCopy code
program MaxNumberRecursive;

var
  maxNum, inputNum: integer;
  
procedure FindMaxAndCount(maxSoFar, count: integer);
begin
  read(inputNum);
  if inputNum = 0 then
  begin
    writeln('Максимальное число: ', maxSoFar);
    writeln('Количество вхождений: ', count);
  end
  else
  begin
    if inputNum > maxSoFar then
      FindMaxAndCount(inputNum, 1)
    else if inputNum = maxSoFar then
      FindMaxAndCount(maxSoFar, count + 1)
    else
      FindMaxAndCount(maxSoFar, count);
  end;
end;

begin
  read(maxNum); // Чтение первого числа
  FindMaxAndCount(maxNum, 1);
end.

Этот код читает последовательность натуральных чисел, вызывает процедуру FindMaxAndCount для каждого числа и передает текущее максимальное число и количество его вхождений. Как только введено число 0, программа выводит максимальное число и количество его вхождений.