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

ycnakouc7oy2xua ycnakouc7oy2xua    2   01.10.2019 04:30    16

Ответы
set17 set17  09.10.2020 07:02
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика