/ Материалы / Язык программирования: Паскаль / Найдите количество четных цифр в десятичной...

Найдите количество четных цифр в десятичной...


Задание:

Найдите количество четных цифр в десятичной записи числа n.

Входные данные Результат
1486 3
371 0

Решение на языке Паскаль:

program z2;

var

   x, y, k:integer;

   Begin

       readln (x);

        k:=0;

        while x<>0 do

        begin

             y:=x mod 10;

             if y mod 2 =0 then k:=k+1;

             x:=x div 10;

        end;

        writeln ('k=',k);

   end.


Есть вопросы? Задайте на форуме




Похожие материалы:
Нашли ошибку на сайте? Напишите нам
Поделитесь в социальных сетях

Комментарии 0

avatar
Мы Вконтакте

Наверх