Ввести (с клавиатуры) непустую последовательность - вопрос №15490620 от govnyaskaguly 29.08.2021 22:19

Question

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

govnyaskaguly · Answer

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....