Question

Напишите программу на языке Pascal. Дано натуральное число A, в записи которого нет нулей. Требуется найти минимальное двузначное число, которое можно увидеть в записи числа A. Например, для числа 815943 ответом будет 15.​

Answer 1

===Pascal ABC.Net===

program brainly;

var

 number, min, temp :integer;

begin

 min := 100;

 Write('Введите число без нулей: ');

 ReadLn(number);

 while number <> 0 do

 begin

   temp := number mod 100;

   if (temp < min) and (temp div 10 <> 0) then min := temp;

   number := number div 10;

 end;

 Write('Минимальное двузначное число: ', min);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает данную задачу:

pascalCopy code
program MinTwoDigitNumber;

var
  A, minTwoDigit: Integer;
  digit, tens, units: Integer;
  found: Boolean;

begin
  writeln('Введите натуральное число A:');
  readln(A);

  found := False;
  minTwoDigit := 99; // Инициализируем минимальное двузначное число большим значением

  while A > 0 do
  begin
    digit := A mod 10; // Получаем текущую цифру числа
    A := A div 10; // Убираем последнюю цифру из числа

    if (digit >= 1) and (digit <= 9) then
    begin
      if not found then
      begin
        units := digit;
        found := True;
      end
      else
      begin
        tens := digit;
        break; // Нашли две разные цифры, выходим из цикла
      end;
    end;
  end;

  minTwoDigit := tens * 10 + units; // Составляем минимальное двузначное число

  writeln('Минимальное двузначное число, которое можно увидеть в записи числа A: ', minTwoDigit);
end.

Вы можете скопировать этот код и вставить его в среду разработки Pascal для его выполнения. Программа будет запрашивать ввод натурального числа A и выводить минимальное двузначное число, которое можно увидеть в его записи.