Написать программу, которая проверяет является ли введенное число двузначным или нет. если условие выполняется, то на экран выводятся число десятков и единиц исходного числа, иначе выводится сообщение "число двузначным не является".

//pascal abc.net 3.1 сборка 1256 var   a: integer;   s: string; begin readln(a); s: =inttostr(a); if length(s)=2 then   begin   writeln('десятков: ',s[1]);   write('единиц: ',s[2]);   end   else   writeln('число двузначным не является'); end. пример ввода: 27 пример вывода: десятков: 2 единиц: 7

24  различными способами могут попытаться сесть в ряд эти музыканты.4! = 1*2*3*4 = 24может на цифрах понятнее: 1234    2134    3124    41231243    2143    3142    41321324    2314    3214    42121342    2341    3241    42311423    2413    3412    43121432    2431    3421    4321(пм - 1 ; о - 2 ; к - 3 ; км - 4)

1. // pascalabc.net 3.3 begin   var a: =arrrandom(20,10,90); a.println;   var max_1: =a.max;   writeln('max_1 = ',max_1,' i_max_1 = ',a.indexmax+1);   var max_2: =a.where(x-> x< > max_1).max;   writeln('max_2 = ',max_2,' i_max_2 = ',a.indexof(max_2)+1); end. пример: 58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38 max_1 = 84 i_max_1 = 11 max_2 = 83 i_max_2 = 18 2. // pascalabc.net 3.3 begin   var a: =arrrandom(20,10,90); a.println;   var sr: =a.average;   writeln('среднее = ',sr);   var m: =a.minby(x-> abs(x-sr));   writeln('искомый номер = ',a.indexof(m)+1); end. пример: 74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75 среднее = 50.7 искомый номер = 6