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

===Pascal ABC.Net===

program ;

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.

ответ на фото. Это выражение можно записать иначе,как я его записала. Обрати на это внимание.

Обьяснение:

1)для трех переменных А,В,С записываются все возможные логические комбинации значений(первые три колонки)

2) т.к в твоем выражении эти А,В,С инверсируются, в следующих трех колонках производится инверсия(отрицание,логическое НЕ). Значения записываются наоборот. Если была 1,станет 0. Если был 0,станет 1.

3) полностью твое логическое выражение можно записать подругому. Это в последней колонке показано. Между этими значениями происходит логическое ИЛИ(ЛОГИЧЕСКОЕ СЛОЖЕНИЕ)

Begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if (a mod i = 0) then
      writeln('> ', i);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

begin
  var a: integer;
  readln(a);
  writeln(Simple(a));
end.

var
  a: integer;

begin
  readln(a);
  for i: byte := length(a.ToString()) downto 1 do
    write(a.ToString()[i]);
end.

function Simple(a: integer): boolean;
begin
  result := true;
  for i: integer := 2 to (a div 2) do
    if (a mod i = 0) then
     begin
      result := false;
      break;
    end;
end;

function par(a: integer): string;
begin
  for i: byte := length(a.ToString()) downto 1 do
    result += a.ToString()[i];
end;

  
begin
  var a: integer;
  readln(a);
  for i: integer := 1 to abs(a) do
    if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then
      writeln('> ', i);
end.