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.

Answer 2

Конечно, помогу. Давай разбираться.

pascalCopy code
program MinValue;

function F(n: integer): integer;
begin
  if n > 0 then
    F := n mod 10 * F(n div 10)
  else
    F := 1;
end;

var
  n: integer;

begin
  n := 1;
  while F(n) <= 320 do
    Inc(n);
  
  writeln(n, ' ', F(n));
end.

Этот код будет выводить значение n и F(n) в ответе. Когда F(n) превысит 320, цикл завершится, и программа выведет найденные значения.