Вопрос по информатике:
1. Ввести цифру С. Определить, сколько раз она встретилась в заданном числе.
2. Найти максимальную цифру числа.
3. Ввести произвольное количество натуральных чисел. Признаком окончания ввода является ввод отрицательного числа. Напечатать True, если введенные числа образуют возрастающую последовательность, в противном случае напечатать False.
4. Найти «перевертыш» числа. Например, для 2345 результат 5432.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.02.2017 08:24
- Информатика
- remove_red_eye 8513
- thumb_up 40
Ответы и объяснения 1
Задачи 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:=ReadInteger('Введите число: ')
end;
if m>=n then Writeln('Последовательность невозрастающая')
else Writeln('Последовательность возрастающая')
end.
Тестовое решение:
Принимаются неотрицательные целые числа
Введите число: 4
Введите число: 6
Введите число: 12
Введите число: 83
Введите число: 170
Введите число: 214
Введите число: 170
Последовательность невозрастающая
- 12.02.2017 12:32
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.