Предмет: Информатика, автор: Denis2405

Написать программу подсчитывающую кол-во чётных и нечётных цифр в числе. Только на Паскале.

Ответы

Автор ответа: Аноним
1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

begin

 var s := ReadInteger.ToString;

 var Четных := s.Where(c -> '02468'.Contains(c)).Count;

 var Нечетных := s.Where(c -> '13579'.Contains(c)).Count;

 Println('Четных', Четных, 'нечетных', Нечетных);

end.

Приложения:

Giammy: Хотя скорее всего ваш вариант быстрее
Аноним: Вообще преобразование числа <-> строки по признанию разработчиков довольно тормозные.
Аноним: Поэтому если уж на строки ушел от чисел, лучше назад не возвращаться.
Аноним: Тут, возможно, надо было попытаться тернарным оператором разобрать в кортеж за один Select, но не хотелось долго думать))
Giammy: begin
var s := ReadInteger.ToString;
var e:=s.Where(c -> c in '02468').Count;
Println($'Четных - {e}{NewLine}Нечетных - {s.Length-e}');
end.
Giammy: Всё-таки по-своему))
Аноним: Только на отрицательном числе будет врать))
Giammy: Почему? знак "-"?
Giammy: Можно сразу сделать абсолютное число и проблем не будет
Аноним: Abs - можно. Знак "-" не отберется в четные и при вычитании из общего количества увеличит нечетные на 1.
Похожие вопросы
Предмет: Литература, автор: liubasyk221107
Предмет: Алгебра, автор: ksenijakuzmina
Предмет: Алгебра, автор: measurikkkk