6) вводится последовательность чисел. конец ввода – число > 100. определить количество четных чисел, а каждое нечетное возвести в квадрат. 7) вводится последовательность чисел. конец ввода – отрицательное число. определить сумму цифр младших разрядов всех чисел, за исключением отрицательного. 8) дано число. вывести по отдельности все его цифры, определить их сумму, сумму только нечетных цифр, сумму старшего и младшего разрядов.

// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readseqintegerwhile(x-> x< =100).toarray;   writeln('количество четных чисел равно ',a.where(x-> x.iseven).count);   a.transform(x-> x.isodd? x*x: x); a.println end. пример 35 24 38 83 110 количество четных чисел равно 2 1225 24 38 6889 begin   writeln('s=',readseqintegerwhile(x-> x> =0).select(x-> x mod 10).sum) end. пример 16 24 19 21 45 0 23 -21 s=28 begin   var n: =readinteger('n=');   var st: =new stack < integer> ;   while n> 0 do begin       st.push(n mod 10);       n: =n div 10       end;   var a: =st.toarray;   a.println(',');   writeln('сумма цифр: ',a.sum);   writeln('сумма нечетных цифр: ',a.where(x-> x.isodd).sum);   writeln('сумма старшего и младшего разрядов: ',a.first+a.last); end. пример n= 53214212 5,3,2,1,4,2,1,2 сумма цифр: 20 сумма нечетных цифр: 10 сумма старшего и младшего разрядов: 7

a2;  end они записаны не верно

Объяснение:

Удачи!!!