Подсчет числа четных цифр, используемых в записи N-значного числа M

@Пушистый колбас · Регистрация: 16.02.2010

Студворк — интернет-сервис помощи студентам

Решить задачу с помощью процедур и функций. Написать программу подсчета числа четных цифр, используемых в записи N-значного числа M.

@Artishok · 14.11.2010, 20:14

Pascal

function cs(n: integer): integer;
var
  k, c: integer;
begin
  k := 0;
  c := 0;
  while (n > 0) do 
  begin
    k := n mod 10;
    if (k mod 2 = 0) then
      inc(c);
    n := n div 10;
  end;
  cs := c;
end;

@Пушистый колбас 1 / 1 / 0 Регистрация: 16.02.2010 Сообщений: 19
		1
	Подсчет числа четных цифр, используемых в записи N-значного числа M 14.11.2010, 20:07. Показов 1885. Ответов 1 Метки нет (Все метки) Решить задачу с помощью процедур и функций. Написать программу подсчета числа четных цифр, используемых в записи N-значного числа M. 0

Опции темы

Подсчет числа четных цифр, используемых в записи N-значного числа M

Решение