1. ввести цифру с. определить, сколько раз она встретилась в заданном числе. 2. найти максимальную цифру числа. 3. ввести произвольное количество натуральных чисел. признаком окончания ввода является ввод отрицательного числа. напечатать true, если введенные числа образуют возрастающую последовательность, в противном случае напечатать false. 4. найти «перевертыш» числа. например, для 2345 результат 5432.
/ 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<n) do begin
m:=n;
n:=ReadInteger('Введите число: ')
end;
if m>=n then Writeln('Последовательность невозрастающая')
else Writeln('Последовательность возрастающая')
end.
Тестовое решение:
Принимаются неотрицательные целые числа
Введите число: 4
Введите число: 6
Введите число: 12
Введите число: 83
Введите число: 170
Введите число: 214
Введите число: 170
Последовательность невозрастающая