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

@lexilexustkn · Регистрация: 06.03.2013

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

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

@CodeR · 07.03.2013, 09:56

Pascal

Var m,k:longint;
Begin
    write('Введите M: ');readln(m);
    While m>0 do
    Begin
      if m mod 10 mod 2 = 0 then inc(k);
      m:=m div 10;
    End;
    writeln('Чётных цифр = ',k);
    readln;
End.

@lexilexustkn 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 39
		1
	Составьте программу подсчета числа четных цифр, используемых в записи н-значного числа M 06.03.2013, 23:04. Показов 1717. Ответов 1 Метки нет (Все метки) Составьте программу подсчета числа четных цифр, используемых в записи N-значного числа M 0

Опции темы

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

Решение