Дано трёхзначное число. напишите программу, которая определяет: а) есть ли среди цифр заданного целого трезначного числа одинаковые; пример входных данных выходных123. нет121. да222. да.б) является ли число "перевёртышем", т.е. числом, десятичная записать которого читается одинаково слева направо и справо налево. пример входных данных выходных122 нет121. перевертыш 222. перевертыш.​

1. начцелтаб dat[1: 10]цел к, sdat[1] : = 7dat[2] : = 9dat[3] : = 10dat[4] : = 5dat[5] : = 6dat[6] : = 7dat[7] : = 9dat[8] : = 8dat[9] : = 6dat[10] : = 9s: = 0нц для к от 1 до 10s: = s + dat[k]всекцвывод sконв программе будет вычислена сумма элементов массива: s = 7+9+10+5+6+7+9+8+6+9 = 762. dim dat(10) as integerdim k,m,n as integerdat[1] = 7dat[2] = 9dat[3] = 10dat[4] = 5dat[5] = 6dat[6] = 7dat[7] = 9dat[8] = 8dat[9] = 6dat[10] = 9s = 0for k : = 1 to 10if dat(k) < m thens: = s + dat[k]endifnext kprint sв программе не задано значение переменной m. если считать, что m=0, то в программе вычисляется сумма отрицательных элементов массива, т.е. s=03. var k, m, n: integer; dat: of integer; begindat[1] : = 7; dat[2] : = 9; dat[3] : = 10; dat[4] : = 5; dat[5] : = 6; dat[6] : = 7; dat[7] : = 9; dat[8] : = 8; dat[9] : = 6; dat[10] : = 9; s: = 0; for k : = 1 to 10 dos: = s + dat[k]; writeln(s); end.в программе будет вычислена сумма элементов массива: s = 7+9+10+5+6+7+9+8+6+9 = 76

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*m*'-');   var s: ='';   for var i: =0 to n-1 do       if a.row(i).pairwise.select(t-> sign(t[0])< > sign((t-> t=true) then           s+=(i+1)+' ';   if s.length=0 then writeln('нет искомых строк')   else writeln('номера строк: ',s) end. пример количество строк и столбцов в матрице: 10 5 *** исходная матрица ***   -27  90  57    3 -62   35 -92 -54  36  17   -57 -32 -31  85  84   22 -82 -42 -26  87   -69  75 -26 -88    7   -76 -60 -73  35  45   94  66  95 -85 -40   83 -60  59 -56  49   -81 -53  67  11  -9   -39 -73  67 -49  91 номера строк: 8