Информатика, опубликовано 2018-08-22 20:29:35 by Гость
Дано четырехзначное число. Верно ли, что среди его цифр есть четные числа.
Ответ оставил Гость
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadInteger(Введите четырехзначное число:).ToString;
if s.Where(c->c in [0,2,4,6,8]).Any then
Writeln(Есть четная цифра)
else Writeln(Четных цифр нет)
end.
Тестовое решение
Введите четырехзначное число: 1943
Есть четная цифра
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на