Question

Заполнить пропуски в программе так, чтобы программа выполняла задачу: program P11; {Определение максимальной и минимальной цифры в числе} var a:integer; function F(a:integer):integer; var Max,x:integer; begin Max:=a mod 10; while a>0 do begin x:=a mod 10; a:=a div 10; if x>Max then Max:=x; end; F:=Max; end; {F} function F1_____________________ _______________________________ begin ________________________________________ ________________________________________ ________________________________________ ________________________________________ end; {F1} begin Write('Введите число-'); _____________________________________ _____________________________________ Writeln('Минимальная цифра в числе: ',F1(a)); end.

Answer 1

var a:integer;

function F(a:integer):integer;

var Max,x:integer;

begin

Max:=a mod 10;

while a>0 do begin

x:=a mod 10;

a:=a div 10;

if x>Max then Max:=x;

end;

F:=Max;

end; {F}

function F1(a:integer):integer;

var Min,x:integer;

begin

Min:=a mod 10;

while a>0 do begin

x:=a mod 10;

a:=a div 10;

if x<Min then Min:=x;

end;

F1:=Min;end; {F1}

begin

Write('Введите число-');

readln(a);

Writeln('Максимальная цифра в числе: ',F(a));

Writeln('Минимальная цифра в числе: ',F1(a));

end.

Пример:

Введите число-31842

Максимальная цифра в числе: 8

Минимальная цифра в числе: 1

Answer 2

В данной программе необходимо реализовать функцию F1, которая будет определять минимальную цифру в числе.

Для этого можно использовать аналогичный подход, который использовался для определения максимальной цифры, но на этот раз искать минимальную.

Вот заполненная программа:

pascalCopy code
program P11;

{Определение максимальной и минимальной цифры в числе}

var
  a: integer;

function F(a: integer): integer;
var
  Max, x: integer;
begin
  Max := a mod 10;
  while a > 0 do
  begin
    x := a mod 10;
    a := a div 10;
    if x > Max then
      Max := x;
  end;
  F := Max;
end;

function F1(a: integer): integer;
var
  Min, x: integer;
begin
  Min := a mod 10; // Начальное значение Min устанавливаем равным последней цифре числа
  while a > 0 do
  begin
    x := a mod 10;
    a := a div 10;
    if x < Min then // Если найденная цифра меньше текущего значения Min, обновляем Min
      Min := x;
  end;
  F1 := Min;
end;

begin
  Write('Введите число - ');
  Readln(a);
  Writeln('Максимальная цифра в числе: ', F(a));
  Writeln('Минимальная цифра в числе: ', F1(a));
end.

Теперь программа будет находить как максимальную, так и минимальную цифру в введенном числе.