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

olegohremenko olegohremenko    3   09.12.2020 11:45    0

Ответы
sasgat sasgat  08.01.2021 11:45

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.


Ввести (с клавиатуры) непустую последовательность натуральных чисел // (признак конца последовательн
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика