Напишите с клавиатуры натуральное число и находит наименьшее чётную цифру в его десятиной записи

149

364

Посмотреть ответы 3

Ответы на вопрос:

кококо23

Информатика

4,4(87 оценок)

// 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< min) then min: =d; n: =n div 10 end; if min=10 then writeln('в числе нет четных цифр') else writeln('минимальная четная цифра ',min) end. примеры 162083 минимальная четная цифра 0 153379 в числе нет четных цифр

ррговугимв

Информатика

4,7(86 оценок)

//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.