По братски фото готовой работы иуу

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var s:=ReadInteger('n=').ToString.JoinIntoString('');
  Writeln('Цифр в числе- ',s.Length);
  Writeln('Сумма цифр- ',s.Select(d->Integer.Parse(d)).Sum);
  Writeln('Последняя цифра- ',s.Last);
  Writeln('Первая цифра- ',s.First);
  Writeln('Предпоследняя цифра- ',s[s.Length-1]);
  var m:=ReadInteger('m=');
  Write('Сумма ',m,' последних цифр числа- ');
  Writeln(s.Skip(s.Length-m).Select(d->Integer.Parse(d)).Sum);
  Write('Цифра 3 в запись числа ');
  if Pos('3',s)>0 then Writeln('входит')
  else Writeln('не входит');
  Writeln('Число в обратном порядке- ',s.Reverse.JoinIntoString(''));
  Writeln('Перестановка первой и последней цифр- ',
    s.Last+Copy(s,2,s.Length-2)+s.First);
end.

Тестовое решение:
n= 1063
Цифр в числе- 4
Сумма цифр- 10
Последняя цифра- 3
Первая цифра- 1
Предпоследняя цифра- 6
m= 2
Сумма 2 последних цифр числа- 9
Цифра 3 в запись числа входит
Число в обратном порядке- 3601
Перестановка первой и последней цифр- 3061

Есептеуіш техника — есептеу және мәліметтерді өңдеу процессінің маңызды компоненті болып табылады. Есептеуге арналған алғашқы құрал ретінде есептеу таяқшаларын атауға болады, бұл құрал қазіргі кезде де бастауыш сынып оқушыларын есепке үйрету үшін қолданылады. Даму жолында бұл құралдар күрделене түсті (мысалы, финикиялық саз фигуралары).

Уақыт өте келе, қарапайым құрылғылардан күрделі құралдар пайда бола бастады: абак, логарифмдік сызғыш, механикалық арифмометр, электронды компьютер. Алғашқы есептеуіш құрылғылардың қарапайымдылығына қарамастан, олармен жұмыс жасауға үйренген адам, қазіргі заманғы калькуляторларды пайдаланғаннан да жылдам есептер жүргізе алады. Әрине, қазіргі заманғы есептеуіш құрылғыларының жұмыс өнімділігі және есептеу жылдамдығы ең жылдам есептегіш адамның өзін шаң қаптырып кетеі.