Автомат получает на вход четырёхзначное десятичное число. новое десятичное число строится по следующим правилам. 1. вычисляются два числа – сумма «крайних» цифр четырёхзначного числа и сумма «средних» цифр четырёхзначного числа. 2. полученные два числа записываются друг за другом в порядке невозрастания (без разделителей). пример. исходное число: 7345. сумма «крайних» цифр: 12, сумма «средних» цифр числа: 7. результат: 127. определите, сколько из ниже чисел могут получиться в результате работы автомата: 211 1717 1817 1718 1916 219 21 10 в ответе запишите только количество чисел.

1. ограничения поскольку в суммах участвуют только два однозначных числа, то сумма может находиться в пределах от 0 (0+0) до 18 (9+9). 2. анализ а) 211. 2-11 нарушает условие невозрастания, 21-1 - невозможная сумма 21. это число получиться не может. б) 1717. тут только 17-17, оба числа допустимы, невозрастание не нарушено. это первое из чисел, которое допустимо. в) 1817. тут только 18-17. оба числа допустимы, невозрастание не нарушено. это второе из чисел, которое допустимо. г) 1718. тут только 17-18. оба числа допустимы, но невозрастание нарушено. это число недопустимо. д) 1916. тут только 19-16. первое число недопустимо, поэтому и число 1916 недопустимо. е) 219. 2-19 содержит недопустимое число 19. 21-9 содержит недопустимое число 21. такое число недопустимо. ж) 21. 2-1. оба числа допустимы, невозрастание не нарушено. это третье из чисел, которое допустимо. з) 10. 1-0. оба числа допустимы, невозрастание не нарушено. это четвертое из чисел, которое допустимо. ответ: 4

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.