Регистрация
egorivanov2000
12.12.2022 11:37
Информатика
Есть ответ 👍

Хелп,умоляю..написать программу для подсчёта количества чётных и нечётных цифр любого числа( в паскале), .​

134
291
Посмотреть ответы 2

Ответы на вопрос:

79654622969ss
79654622969ss
4,4(11 оценок)

var

    a, chet, nechet : integer;

   

begin

    write('введите число: ');

    readln(a);

    while a > 0 do begin

        if (a mod 10) mod 2 = 0then chet += 1
else nechet += 1;

        a : = a div 10;

    end;

    writeln('четных: ', chet);

    writeln('не четных: ', nechet);

end.

программа считает 0 как четное число. если нужно что бы 0 не
учитывался при подсчете то необходимо строку:

if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

заменить на:

if a mod 10 < > 0 then if (a mod 10) mod 2 = 0then chet += 1 else nechet += 1;

Анабель2032
Анабель2032
4,4(46 оценок)

ага

Объяснение:

ес

Популярно: Информатика