Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Задачи 1,2,4:
/ PascalABC.Net 3.0, сборка 1066
var
  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
Введите проверяемую цифру:  4
4 встречается в 355678679650768680078676985643546809678546263435 4 раз
Максимальная цифра числа: [9]
Перевертыш: 534362645876908645346589676870086867056976876553

Задача 3
// PascalABC.Net 3.0, сборка 1066
begin
  var m:int64:=-1;
  var n:int64:=0;
  Writeln(Принимаются неотрицательные целые числа);
  while (n>=0) and (m    m:=n;
    n:=ReadInteger(Введите число: )
  end;
  if m>=n then Writeln(Последовательность невозрастающая)
  else Writeln(Последовательность возрастающая)
end.

Тестовое решение:
Принимаются неотрицательные целые числа
Введите число:  4
Введите число:  6
Введите число:  12
Введите число:  83
Введите число:  170
Введите число:  214
Введите число:  170
Последовательность невозрастающая