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

@proger_noob · Регистрация: 31.01.2012

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

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

@Владимир_ВМ · 27.04.2012, 23:16

Pascal

function f(m:integer):integer;
var k:word;
begin
k:=0;
while m>0 do
  begin
  if (m mod 10) mod 2=0 then inc(k);
  m:=m div 10;
  end;
f:=k;
end;
var
M:integer;
begin
write('VVedite M');read(m);
write(f(m));
end.

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

	27.04.2012, 23:16

Опции темы

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

Решение