Задание 16 ЕГЭ по информатике Определите наименьшее значение n, при котором значение F(n), будет больше числа 320. Запишите в ответе сначала найденное значение n, а затем через пробел – соответствующее значение F(n).
Паскаль
function F
(n: integer): integer;
begin
if n > 0 then
F:= n mod 10*
F(n div 10)
else
F:= 1;
end;
ответ, желательно, тоже на паскале
499 324
function F
(n: integer): integer;
begin
if n > 0 then
F:= n mod 10*F(n div 10)
else
F:= 1;
end;
var i:integer;
begin
for i:=1 to 1000 do
if F(i)>320 then
begin
write(i,' ',F(i));
break
end
end.