Пожалуйста помогите решить задачку, оочень нужно.

[Zaz]

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

Спс.

[Zaz]

.....Pascal

[master_root]

Функция фозвращает число чётных цифр в числе передаваемого в качестве параметра функции:

function func(num: integer): integer;
var
  digit: integer;//анализируемая цифра
  res: integer;//число чётных цифр в числе
begin
  res:=0;
  while num <> 0 do
  begin
    digit:=num mod 10;//выделяем одну цифру из числа, начиная с конца
    if ((digit mod 2) = 0) and (digit<>0) then//если цифра чётна и не является нулём
      res:=res+1;//то увеличиваем число чётных цифр на 1
    num:=num div 10;//убираем эту цифру из числа
  end;
  result:=res;//выводим результат
end;

Не знаю насколько вы осведомленны в программировании под Borland Delphi Studio 2006, поэтому напишу сразу как использовать эту функцию в консольном приложении. Вот полный листинг программы:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
function func(num: integer): integer;
var
  digit, res: integer;
begin
  res:=0;
  while num <> 0 do
  begin
    digit:=num mod 10;
    if ((digit mod 2) = 0) and (digit<>0) then
      res:=res+1;
    num:=num div 10;
  end;
  result:=res;
end;
begin
  writeln(func(12333364567890));//Здесь пишем любое число в скобках, которое нужно проанализировать
  readln;
end.

В Pascal всё тоже самое, только не нужно писать строки:
{$APPTYPE CONSOLE}
uses
SysUtils;
Хотя точно не могу сказать. Нет возможности проверить этот код под Pascal. Попробуйте сами.

[eoln]

function func(num: integer): integer;

writeln(func(12333364567890))

для интежер'а число слишком большое - используйте longint например, но до числа не больше 12 млрд.

Если число записать как строку, то можно увеличить диапазон до 255-значного числа

var
  m_, s: string;
  i, k, q, chet: integer;
...
readln(m_);
for i:=1 to length(m_) do begin
  s:=copy(m_, i, 1); //выделяем цифру из всего числа (s-строка)
  val(s, k, q); //преобразуем строку s в число k (q-код ошибки)
  if (k mod 2 = 0) and (k<>0) then ink(chet)
end;
write('Otvet ', chet)

[Zaz]

master_root, eoln, большое спасибо.