Вопрос по информатике:
Организовать ввод трехзначного натурального числа с клавиатуры. Программа должна определитьнаименьшие и наибольшие цифры, которые входят в состав данного
натурального числа.
Пожаловаться
- 14.01.2018 09:48
- Информатика
- remove_red_eye 660
- thumb_up 19
Ответы и объяснения 1
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное трехзначное число:');
var L:=new List;
while n>0 do begin
L.Add(n mod 10);
n:=n div 10
end;
L.Sort;
Writeln('Наименьшая цифра в числе ',L.First,', наибольшая ',L.Last)
end.
Пример
Введите натуральное трехзначное число: 634
Наименьшая цифра в числе 3, наибольшая 6
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное трехзначное число:');
var L:=new List;
while n>0 do begin
L.Add(n mod 10);
n:=n div 10
end;
L.Sort;
Writeln('Наименьшая цифра в числе ',L.First,', наибольшая ',L.Last)
end.
Пример
Введите натуральное трехзначное число: 634
Наименьшая цифра в числе 3, наибольшая 6
Пожаловаться
- 15.01.2018 06:10
- thumb_up 29
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы