Посчитать четные и нечетные цифры числа

Задача

Написать программу, подсчитывающую количество четных и нечетных цифр в числе.

Решение

Описание переменных: 

even - количество четных цифр;
odd - количество нечетных цифр.

Алгоритм решения задачи: 

  1. Если число делится без остатка на 2, значит последняя цифра четная (увеличиваем переменную even). Иначе - нечетная (тогда odd + 1).
  2. Избавляемся от младшего разряда в числе: операция div на 10.

Программа на языке Паскаль:

var	
	a: integer;
	even,odd: byte;
begin
	readln(a);
	even := 0;
	odd := 0;
	while a > 0 do begin
		if (a mod 2) = 0 then
			even := even + 1
		else
			odd := odd + 1;
		a := a div 10;
	end;
	writeln('even: ', even);
	writeln('odd: ', odd);
end.

 

Тема

Циклы

Уровень

Простые задачи

Теги

Комментарии

Uses 
sysutils;
 
Var 
  s: string;
  i,odd,even,k: byte;
Begin
  readln(s);
  For i:=1 To length(s) Do
    Begin
      k := strtoint(s[i]);
      If k Mod 2=0 Then
        even := even+1
      Else
        odd := odd+1;
    End;
  write('Odd-',odd,' Even-',even);
End.

Добавить комментарий