Предмет: Информатика,
автор: 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.
Приложения:
![](https://files.topotvet.com/i/01a/01afb7a6d509ce9b64a47d1e9f267f0b.jpg)
Giammy:
Хотя скорее всего ваш вариант быстрее
var s := ReadInteger.ToString;
var e:=s.Where(c -> c in '02468').Count;
Println($'Четных - {e}{NewLine}Нечетных - {s.Length-e}');
end.
Похожие вопросы
Предмет: Математика,
автор: nellihuramsina
Предмет: Литература,
автор: liubasyk221107
Предмет: Алгебра,
автор: platonovaangelina200
Предмет: Алгебра,
автор: ksenijakuzmina
Предмет: Алгебра,
автор: measurikkkk