1. Ввести цифру С. Определить, сколько раз она встретилась в заданном числе. 2. Найти максимальную цифру числа. 3. Ввести произвольное количество натуральных чисел. Признаком окончания ввода является ввод отрицательного числа. ...
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=n then Writeln('Последовательность невозрастающая')
else Writeln('Последовательность возрастающая')
end.
Тестовое решение:
Принимаются неотрицательные целые числа
Введите число: 4
Введите число: 6
Введите число: 12
Введите число: 83
Введите число: 170
Введите число: 214
Введите число: 170
Последовательность невозрастающая
Не нашли ответ?
Похожие вопросы