Задать вопрос Регистрация
Помочь другим

  • Паскаль. Вводится целое число. Найти разность между суммами цифр стоящих на четных и нечетных местах

Ответы 1

  • var

      sn, s, n, c : integer;

    begin

      read (n);

      c := 0; sn := 0; s := 0;

      while n > 0 do

      begin

        if c mod 2 = 0 then s := s + n mod 10

        else sn := sn + n mod 10;

        n := n div 10;

        inc (c);

      end;

      if c mod 2 = 0 then writeln (s - sn)

      else writeln (sn - s);

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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