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

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


Задание:

Найдите количество четных цифр в десятичной записи числа 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.


Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 349 | Добавил: Ученик | Рейтинг: 5.0/1