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.