Автомат получает на вход трёхзначное число. по этому числу строится новое число по следующим правилам. 1. складываются первая и вторая, а также вторая и третья цифры исходного числа. 2. полученные два числа записываются друг за другом в порядке убывания (без разделителей пример. исходное число: 348. суммы: 3+4 = 7; 4+8 = 12. результат: 127. укажите наименьшее число, в результате обработки которого автомат выдаст число 159.

  1 -   2 -   3 -   4 -   5 9 6 3 8 7 2 7 8 1 6 9 ответ: 781

редактирование  (фр.  rédaction  от  лат.  redactus  – в порядок)  — многоаспектное понятие, имеющее следующие основные значения[1]:

род профессиональной деятельности (преимущественно в области  периодической печати, книгоиздательского дела,кинематографии,  телевидения,  радиовещания), связанной с подготовкой к выпуску печатных изданий, теле- и радиопередач, кинофильмов; составная часть издательского процесса, содержанием которой является творческая работа  редактора  (обычно совместно с автором) над  рукописью  произведения в целях улучшения его содержания и формы, подготовки кполиграфическому воспроизведению  и выпуску в свет; содержания и формы любого  документа, написанного или подготовленного кем-либо, в соответствие с общепринятыми или специально установленными требованиями и нормами. форматирование (инициализация, разметка диска; . formatting, format, initialization), процедура записи на магнитный диск (жесткий диск  (см.  жесткий диск), флэш-память  (см.  флэш-память)) меток, определяющих последующее расположение записей данных (блоков, секторов, дорожек), участков непригодных для записи, а также другой информации. форматирование выполняется перед первым использованием диска, при последующем форматировании вся информация на диске уничтожается.  

энциклопедический словарь.  2009.

 

//pascalabc.net function delword(s: string): string; var   i,n: integer; begin   n: =length(s);   i: =n;   repeat       if i> =1 then dec(i);   until s[i]=' ';   delete(s,i+1,n-i);   delword: =s end; var   st: string; begin   write('введите строку: '); readln(st);   writeln('результат: ',delword(st)) end. тестовое решение: введите строку: а роза упала на лапу азора результат: а роза упала на лапу //pascalabc.net function descdigits(s: string): boolean; var   desc: boolean;   i,n: integer;   c1,c2: char; begin   n: =length(s);   desc: =true;   c1: ='a'; { главное, чтобы символ был "старше" любой цифры }   i: =1;   repeat       c2: =s[i];       if c2 in ['0'..'9'] then           if c2< c1 then c1: =c2 else desc: =false;       inc(i)   until (i> n) or (not desc);   descdigits: =desc end; var   s: string; begin   write('введите строку: '); readln(s);   if descdigits(s) then writeln('true') else writeln('false') end. тестовое решение: введите строку: пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно! true вариант первой программы для borland pascal 7.01 uses crt; function delword(s: string): string; var  i,n: integer; begin  n: =length(s);   i: =n;   repeat      if i> =1 then dec(i);   until s[i]=' ';   delete(s,i+1,n-i);   delword: =send; var  st: string; begin  clrscr;     write('введите строку: '); readln(st);   writeln('результат: ',delword(st));   readkeyend.