Question

65) (Д.Ф. Муфаззалов, Уфа) Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f(x: integer): integer; var m: integer; begin if x < 10 then f := x else begin m := f(x div 10); if m < x mod 10 then f := x mod 10 else f := m; end; end; begin k := 0; for i := 1000 to 9999 do if f(i mod 100) = 1 then if f(i div 100) = f(i mod 100) then k := k + 1; writeln(k); end. Объясните, пожалуйста.

Answer 1

Нужно через программу,легче будет) Решила будет 6