Question

Задание 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;

ответ, желательно, тоже на паскале

Answer 1

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.