ЕСЛИ ВЫ РЕШИТЕ НОМЕРА ПО ИНФОРМАТИКЕ. У МЕНЯ СРЕДНИЙ НУЖНА

Uses Crt;

var
  n:integer;
 
begin
  repeat
    textcolor(15);
    Write('n='); Read(n);
    if n=0 then begin
      textcolor(LightGreen);
      Writeln('Работа завершена');
      textcolor(15);
      end
    else  
      if (n>9) and (n<100) then begin
        n:=n-10;
        Writeln('Результат: ',n)
        end
      else
        if (n>99) and (n<1000) then begin
          n:=n-100;
          Writeln('Результат: ',n)
          end
        else begin
          textcolor(LightRed);
          Writeln('Недопустимое значение');
          end;
  until n=0;
  ReadKey { для PascalABC.NET можно удалить эту строку }
end.

Можно быстро сообразить, какой будет ответ, при кругов Эйлера.

Всего есть 2^6 = 64 возможных комбинаций входных параметров и, соответственно, в таблице 64 строки. Изобразим области истинности выражений A и B. Область истинности выражения A + -B – это объединение области истинности A и области ложности выражения B; область истинности изображена на рисунке зелёным цветом.

Чтобы в закрашенную область попало как можно больше элементов, в незакрашенной области элементов должно быть как можно меньше. В данном случае ничего не мешает тому, чтобы в незакрашенной области вообще не было элементов, при этом все 5 элементов в области истинности B должны одновременно быть и в области истинности A. При этом в область истинности выражения A + -B входят все 64 элемента, максимально возможное число единиц равно 64.