• ПЛАЧУ МНОГО БАЛЛОВ! Составьте программу для определения количества четных и нечетных цифр в записи данного натурального, пятизначного числа. (В обычном паскале)

Ответы 2

  • Спасибо большое!
    • Автор:

      jayden28
    • 6 лет назад
    • 0
  • Var a,c,n : Longint;Begin  Readln(a);  c:=0; n:=0;  While a>0 do  Begin    If a mod 10 <> 0 then      If Odd(a mod 10) then Inc(n) else Inc(c);    a:=a div 10;  end;  Writeln('Чётных: ',c);  Writeln('Нечётных: ',n);end.
    • Автор:

      alondra
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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