1. Ввести цифру С. Определить, сколько раз она встретилась в заданном числе.
2. Найти максимальную цифру числа.
3. Ввести произвольное количество натуральных чисел. Признаком окончания ввода является ввод отрицательного числа. Напечатать True, если введенные числа образуют возрастающую последовательность, в противном случае напечатать False.
4. Найти «перевертыш» числа. Например, для 2345 результат 5432.

Задачи 1,2,4:/ PascalABC.Net 3.0, сборка 1066var  n:BigInteger;begin  var s:=ReadlnString('Введите натуральное число: ');  If BigInteger.TryParse(s,n) then begin    var c:=ReadChar('Введите проверяемую цифру: ');    Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз');    Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct);    Writeln('Перевертыш: ',s.Inverse);    end  else Writeln('Ошибка при вводе числа')end.Тестовое решение:Введите натуральное число:  355678679650768680078676985643546809678546263435Введите проверяемую цифру:  44 встречается в 355678679650768680078676985643546809678546263435 4 разМаксимальная цифра числа: [9]Перевертыш: 534362645876908645346589676870086867056976876553Задача 3// PascalABC.Net 3.0, сборка 1066begin  var m:int64:=-1;  var n:int64:=0;  Writeln('Принимаются неотрицательные целые числа');  while (n>=0) and (m<n) do begin    m:=n;    n:=ReadInteger('Введите число: ')  end;  if m>=n then Writeln('Последовательность невозрастающая')  else Writeln('Последовательность возрастающая')end.Тестовое решение:Принимаются неотрицательные целые числаВведите число:  4Введите число:  6Введите число:  12Введите число:  83Введите число:  170Введите число:  214Введите число:  170Последовательность невозрастающая