Ввести (с клавиатуры) непустую последовательность натуральных чисел
// (признак конца последовательности – 0). Вывести максимальное число
// этой последовательности и количество его вхождений. Требование:
// запрещено пользоваться операторами цикла, перехода, массивами, файлами
// (т.е. решать задачу надо рекурсивно).
Язык - pascal
// (признак конца последовательности – 0). Вывести максимальное число
// этой последовательности и количество его вхождений. Требование:
// запрещено пользоваться операторами цикла, перехода, массивами, файлами
// (т.е. решать задачу надо рекурсивно).
Язык - pascal
More Questions From This User See All
Answers & Comments
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.