Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе
Нужно написать программу подсчитывающую количество чётных и не чётных цифр в числе
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;
begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
d := n mod 10;
if odd(d) then Inc(n1) else Inc(n2);
n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.
Тестовое решение:
Введите натуральное число: 3534052
Нечетных 4, четных 3
Не нашли ответ?
Похожие вопросы