Вопрос по информатике:
Напишите с клавиатуры натуральное число и находит наименьшее чётную цифру в его десятиной записи
Пожаловаться
- 09.01.2015 17:28
- Информатика
- remove_red_eye 15190
- thumb_up 12
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (min,n):=(10,ReadInteger);
while n>0 do begin
var d:=n mod 10;
if d.IsEven and (d
end;
if min=10 then Writeln('В числе нет четных цифр')
else Writeln('Минимальная четная цифра ',min)
end.
Примеры
162083
Минимальная четная цифра 0
153379
В числе нет четных цифр
// Внимание! Если программа не работает, обновите версию!
begin
var (min,n):=(10,ReadInteger);
while n>0 do begin
var d:=n mod 10;
if d.IsEven and (d
end;
if min=10 then Writeln('В числе нет четных цифр')
else Writeln('Минимальная четная цифра ',min)
end.
Примеры
162083
Минимальная четная цифра 0
153379
В числе нет четных цифр
Пожаловаться
- 01.01.1970 00:00
- thumb_up 38
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger.ToString.Select(t->t.ToDigit).Where(x->x.IsEven);
if a.Count=0 then write('нет четных цифр') else write('минимальная четная: ',a.Min);
end.
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger.ToString.Select(t->t.ToDigit).Where(x->x.IsEven);
if a.Count=0 then write('нет четных цифр') else write('минимальная четная: ',a.Min);
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы