Найти две минимальные цифры числа

@Chelove234 · Регистрация: 19.12.2022

Author24 — интернет-сервис помощи студентам

Добрый день. Можете написать программу для нахождения двух минимальных цифр числа

@Cyborg Drone · 21.12.2022, 00:19

Pascal

var
  d: array[0..9] of integer;
  i, n: integer;
begin
  write('Введите число: ');
  readln(n);
  n := abs(n);
  if n < 10 then writeln('Число содержит одну цифру')
  else
    begin
      repeat
        inc(d[n mod 10]);
        n := n div 10
      until n = 0;
      write('Две минимальных цифры числа:');
      i := 0;
      while n < 2 do
        if d[i] > 0 then
          begin
            write(' ', i);
            dec(d[i]);
            inc(n)
          end
        else inc(i);
      writeln;
    end
end.

@Chelove234 0 / 0 / 0 Регистрация: 19.12.2022 Сообщений: 26
		1
	Найти две минимальные цифры числа 20.12.2022, 14:06. Показов 303. Ответов 1 Метки нет (Все метки) Добрый день. Можете написать программу для нахождения двух минимальных цифр числа 0

	21.12.2022, 00:19

Найти две минимальные цифры числа

Решение