Форум » Рекурсивные процедуры и функции » Задача 32(16) » Ответить
Задача 32(16)
Светлана Митрофанова: Определите наибольшее трехзначное значение n, при котором значение F(n), будет больше числа 7. Запишите в ответе сначала найденное значение n, а затем через пробел – соответствующее значение F(n). var n:integer; function F(n: integer): integer; var m,d: byte; begin if n < 10 then Result:=n else begin m:=F(n div 10); d:= m mod 10; if m < d then Result:=d else Result := m end end; begin n:=0; repeat n:=n+1; F(n); until (F(n)>7) and (n>=100); write(n,' ',F(n)); end. Выводит 800 и 8. Не могу найти ошибку.
Ответов - 0
полная версия страницы