• составьте программу определения количества четных и нечетных цифр в записи данного натурально числа

Ответы 2

  • var n,k1,k2:integer;beginwrite('n = ');readln(n);k1:=0; k2:=0;while n>0 do begin if n mod 2=0 then k1:=k1+1 else k2:=k2+1; n:=n div 10; end;writeln('Четных цифр - ',k1,', нечетных - ',k2);end.Пример:n = 14568Четных цифр - 3, нечетных - 2
    • Автор:

      kenyaclyv
    • 6 лет назад
    • 0
  • Program n1;var a,kn,kh: longint;beginkn:=0;kh:=0;readln(a);while a>0 dobeginif (a mod 10) mod 2=0 then kh:=kh+1else kn:=kn+1;a:= a div 10;end;writeln('кол-во четных: ',kh);writeln('нечетных: ',kn);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years