Работа 3.4 Упр.2 Задание 3 ГДЗ Семакин 10 класс (Информатика)

Задача

Найти наибольшую и наименьшую цифры в записи данного натурального числа.

Подробный ответ

Чтобы найти наибольшую и наименьшую цифры в записи натурального числа, будем поочерёдно выделять его последнюю цифру:

$$c = b \bmod 10$$

и удалять её из числа:

$$b = b \div 10$$

Сначала зададим начальные значения:

$$min = 9$$ — больше любой цифры;
$$max = 0$$ — меньше любой цифры.

Затем в цикле проверяем каждую цифру: если она меньше $$min$$, то обновляем $$min$$; если больше $$max$$, то обновляем $$max$$.

var a, b, c, min, max: Integer;
begin
  writeln(‘Введите число:’);
  readln(b);
  min := 9;
  max := 0;
  repeat
  begin
    c := b mod 10;
    b := b div 10;
    if c < min then min := c;
    if c > max then max := c;
  end;
  until b <= 0;
  writeln(‘Наибольшее значение: ‘, max);
  writeln(‘Наименьшее значение: ‘, min);
end.