Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var Число := ReadInteger('Введите натуральное число:');

 var (Четных, Нечетных) := (0, 0);

 while Число > 0 do

 begin

   if (Число mod 10).IsOdd then Inc(Нечетных)

   else Inc(Четных);

   Число := Число div 10

 end;

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

end.

Введите натуральное число: 1406439

Нечетных 3 четных 4