• СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!
    Определить , образует ли сумма цифр натурального числа нечетное число.

Ответы 3

  • Спасибо тебе большое , спас. Пожалуйста напиши как тебя зовут , в вк найду , на коммерческой основе поработаем. Еще раз спасибо.
  • var a,x,sum:integer;

    begin

     writeln('введите целое число');

     readln( a );  

     x:=a;

     sum:=0;

     while ( x<>0 ) do  

     begin

       sum := sum + (x mod 10);

       x := x div 10;

     end;

     

     if sum mod 2=0 then writeln('Сумма цифр числа образует четное число')

     else writeln('Сумма цифр числа образует нечетное число');

    end.

  • PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018Внимание! Если программа не работает, обновите версию!

    begin

     var (n, s) := (ReadInteger('Введите натуральное число'), 0);

     while n > 0 do

     begin

       s += n mod 10;

       n := n div 10

     end;

     if s.IsOdd then Print('Сумма цифр нечетная')

     else Print('Сумма цифр четная')

    end.

    Введите натуральное число 3563423Сумма цифр четная
    • Автор:

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

Войти через Google

или

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

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

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