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

@Ananimka · Регистрация: 20.05.2011

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

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

magirus · 20.05.2011, 17:43

Комментарий модератора

называйте темы максимально информатино

@Mr.Y · 20.05.2011, 17:55

Pascal

Uses crt;
Function count(n:integer):integer;
Var k:integer;
Begin
 k:=0;
 While n<>0 do
  Begin
   if not odd(n mod 10) then inc(k);
   n:=n div 10;
  End;
 count:=k;
End;
Var n:integer;
Begin
 clrscr;
 Write('Введите число: ');
 Readln(n);
 Writeln('Количество четных цифр в записи числа: ',count(n));
End.

@Ananimka 0 / 0 / 0 Регистрация: 20.05.2011 Сообщений: 8
		1
	Написать программу подсчета числа четных цифр , используемых в записи N-значного числа.помоги те решить с использованием фукций 20.05.2011, 17:35. Показов 3967. Ответов 2 Метки нет (Все метки) Написать программу подсчета числа четных цифр , используемых в записи N-значного числа.помоги те решить с использованием фукций, если можно до завтро , заранее спасибо 0

Опции темы

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

Решение